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Vorwort 


Der Schneider CPC 6128 ist sicherlich ein auBerordentlich lei- 
stungsfahiger Rechner, der seinesgleichen sucht. Er kann glei- 
chermaBen fur den privaten und den geschaftlichen Bereich ge- 
nutzt werden. Nicht zuletzt aufgrund seiner vielseitigen System- 
Software ist er durchaus auch fur den betrieblichen Einsatz ge- 
eignet. So ist die neueste CP/M-Version (CP/M Plus) ohne 
Zweifel das professionellste Betriebssystem fur 8-Bit-Rechner, 
das es zur Zeit gibt. Neben einer beachtlichen Zahl umfassender 
HELP-Texte, die insbesondere ftir den CP/M-Neuling interes- 
sant sind, zeichnet sich CP/M Plus durch eine verbesserte Datei- 
behandlung aus. Zudem ist CP/M Plus kompatibel zu der aiteren 
Version 2.2, so daB die unzahligen Programme, die es ftir CP/M 
gibt, auch unter dem neuen Betriebssystem laufen. 

In dem vorliegenden Buch wird jedoch nicht naher auf die 
CP/M-Welt eingegangen. Vielmehr richtet sich das Buch an den 
Computerinteressierten, der hauptsachlich mit AMSDOS und 
Schneider-BASIC arbeiten will. Dabei wird zwar vorausgesetzt, 
daB der Leser schon uber einige Grundkenntnisse der Program- 
miersprache BASIC verfugt, jedoch ist ein Verstandnis dieses 
Buches auch nach intensiver Durcharbeit des Bedienungshand- 
buches und der einfiihrenden Kapitel dieses Buches mbglich. 

Allerdings handelt es sich hier nicht um ein "Einsteigerbuch", 
sondern vielmehr um ein Buch fur den "eingestiegenen Einstei- 
ger". Einzelne Befehle werden nicht in alien Einzelheiten 
(nochmals) eriautert, sondern es wird versucht, die Zusammen- 
hange zwischen Befehlen und Befehlsgruppen unterschiedlichster 
Art darzustellen. Dazu kommen eine Menge Tips und Tricks, 
sowie einige hoffentlich interessante Anregungen und 
Programmanwendungen fur den Hobbyprogrammierer. Ganz 
selbstverstandlich diirfte sein, daB dabei die Besonderheiten und 
die Leistungsmerkmale des CPC 6128 im Vordergrund stehen. 

Der Nutzen dieses Buches erschlieBt sich fur den Leser insbe¬ 
sondere dann, wenn er die vorgefiihrten Beispiele und Pro¬ 
gramme verandert Oder beziiglich seiner eigenen Bediirfnisse 



bearbeitet. Die leichteste Art, Programmieren zu lernen, ist es, 
mit den Befehlen und den Programmen zu experimentieren. 
"Trockenubungen" sind hingegen weit weniger von Erfolg ge- 
kront. Und sollten Sie trotzdem das eine oder andere Mai 
scheinbar unlosbare Probleme haben, dann bedenken Sie, daB 
Ubung den Meister macht. 

Falls Sie iiber Software fur den Schneider CPC 464/664 verfii- 
gen sollten (vielleicht gehoren Sie ja auch zu den sogenannten 
Aufsteigern), so konnen Sie diese Programme problemlos auch 
auf dem CPC 6128 laufen lassen. Dies gilt allerdings nur fur 
BASIC-Programme. Bei Programmen, die in Maschinensprache 
geschrieben sind, ist schon einiges an Anpassungsarbeit notwen- 
dig. Eine vollkommene Kompatibilitat der Systeme ist somit 
nicht gegeben. 



Inhaltsverzeichnis 


1. Der Rechner und seine Sprache.13 

1.1 Der Schneider CPC 6128.13 

1.2 Die Programmiersprache BASIC und wie man mit 

ihr die Arbeit am Rechner organisiert.16 

1.3 Wie ein Programm entsteht.19 

2. Exkurs: Schneider-BASIC im Zusammenhang.27 

3. Grundelemente der Programmiersprache BASIC.37 

3.1 Vorbemerkung.37 

3.2 Variablen und Arithmetik.37 

3.3 Logik, Bedingungen und Programmverzweigungen.40 

3.4 Programmschleifen und bedingte Programmteil- 

wiederholungen.42 

3.5 Dateneingabe und Speicherplatzreservierung.45 

3.6 Unterprogramme, Unterbrechnungen und die 

eingebaute Uhr.48 

3.7 Ausgaben und Formatierungen.52 

4. Hardware und Software - BASIC und der CPC.57 

4.1 Einfiihrung.57 

4.2 Einige grundsdtzliche EDV-Begriffe.57 

4.3 Der ASCII-Code.59 

4.4 Zahlensysteme.61 

4.5 Bits und Bytes.64 

4.6 Der Speicher des CPC.66 

4.7 Die Ablage einer BASIC-Zeile im Speicher.69 

4.8 Die Tokens.72 

























5. BASIC fur Fortgeschrittene.77 

5.1 Vorbemerkung.77 

5.2 Stringbearbeitung.77 

5.2.1 Leistungsfahig Befehle.77 

5.2.2 Sortieren.82 

5.2.3 Laufschrift.86 

5.3 Definition von Tasten und Zeichen.89 

5.3.1 Die Tastenbelegung.89 

5.3.2 Selbstdefinierte Zeichen.94 

5.4 Window-Technologie.98 

5.4.1 Die Programmierung von Fenstern.98 

5.4.2 Window-Planer und Bildschirmmasken.101 

5.4.3 Weitere Anwendungen.104 

5.5 Tips und Tricks fur den BASIC-Programmierer.106 

5.5.1 Rundungen und Rechengenauigkeit.106 

5.5.2 Die Rechengeschwindigkeit.110 

5.5.3 Dem Zufall auf der Spur.113 

5.5.4 Fehlerbearbeitung.115 

5.5.5 Kopierschutz.116 

6. Graphik.119 

6.1 Einfiihrung.119 

6.2 Graphikaufldsung und Zufallsgraphik.119 

6.3 Leistungsfahige Graphik-Befehle.122 

6.4 Graphikzeichen.124 

6.5 Farbenzauber.126 

6.6 Graphik und Text.129 

6.7 Balken- und Kuchendiagramme.134 

6.8 Funktionenplotter.144 

6.9 Dreidimensionale Graphiken.149 

6.10 Joystick und Spiele.153 

6.11 Die Nutzung der 128 K.159 

6.12 Graphikeditor.162 


































7. Musik.175 

7.1 Einfuhrung.175 

7.2 Ein einfacher Soundeditor.175 

7.3 Sound und Rendezvous.179 

7.4 Lautstarke- und Tonhiillkurven.187 

7.5 Weitere Beispiele.195 

8. Das Diskettenlaufwerk.197 

8.1 Einfuhrung.197 

8.2 Sequentielle Datenspeicherung.197 

8.2.1 PRINT und WRITE, INPUT und LINE INPUT 

im Vergleich.206 

8.3 Relative Dateien mit AMSDOS.210 

9. Anwenderprogramme.225 

9.1 Vorbemerkung.225 

9.2 "Clusteranalyse" der BASIC-Befehle.225 

9.3 Tabellarischer Tilgungsplan.236 

9.4 Haushaltsorganisation.243 

9.5 Textverarbeitung.253 

9.6 Vier gewinnt.268 






















Per Rechner und seine Sprache 


13 


1. Der Rechner und seine Sprache 


1.1 Der Schneider CPC 6128 

Im Vergleich zum Schneider CPC 464/664 und anderen gangigen 
Homecomputermodellen sind die 128 KByte RAM des Schneider 
CPC 6128 das eigentlich neue und bemerkenswerte. Zwar kon- 
nen 8-Bit-Rechner wie der CPC 6128 normalerweise nur 64 
KByte adressieren, jedoch bietet Schneider mit dem sog. 
bankswitching-Verfahren eine recht sinnvolle Ldsung zur Nut- 
zung der zweiten 64 Kilobytes. Dabei werden die zweiten 64 
KByte mit ganz einfachen RSX-Befehlen angesprochen (RSX 
steht fur Resident System extension). Diese RSX-Befehle stellen 
eine Befehlserweiterung dar. Sie erhalten die zusatzlichen Be- 
fehle, wenn Sie das Programm "BANKMAN.BAS", welches sich 
auf der ersten Seite der System-Disketten befindet, starten. Mit 
diesen Befehlen, auf die im weiteren Verlauf dieses Buches noch 
naher eingegangen wird, konnen Sie die zweiten 64 KByte 
wahlweise als RAM-Disk oder als Speicher fur komplette Bild- 
schirmseiten nutzen. 

Welche Pseudo-Datei-Operationen Sie bei der Betrachtung der 
zweiten 64 KByte RAM als RAM-Disk durchfiihren konnen, 
wird Ihnen ausfuhrlich in Kapitel 9.3 vorgefiihrt. Die Nutzung 
des Zusatz-RAMs fur Bildschirm-Operationen erfolgt im Gra- 
phik-Teil dieses Buches (Kapitel 7.11 und 7.12). Zusatzlich be- 
finden sich in den anderen Kapiteln weiter Hinweise zur Nut¬ 
zung der 128 KByte unter BASIC. 

Aber auch, wenn man von den 128 K absieht, ist der CPC 6128 
ein Super-Rechner. Er weist einige bemerkenswerte und ange- 
nehme Eigenschaften auf, die ihresgleichen suchen. 

So ist der CPC 6128 mit einem umfangreichen BASIC-Anwei- 
sungsvorrat ausgestattet, der sich auch hinter dem sog. MSX- 
Standard nicht verstecken muB. Neben den auch bei einfacheren 
Rechnern zu findenden iiblichen Standardanweisungen sind fol- 
gende Erweiterungen hervorzuheben: 
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- Die Definition von Fenstern (windows) auf dem Bild- 
schirm, wobei sich jedes Fenster genau wie eine eigener 
kleiner Bildschirm verhalt und mit den iiblichen Ein- 
und Ausgabeanweisungen ansprechbar ist. 

- Die Steuerung zeitabhangiger Unterbrechnungen durch 
eine zentrale Echtzeituhr. 

Aber auch auf die Graphik- und Farbeigenschaften ist bei der 
Entwicklung des CPC 6128 groBer Wert gelegt worden. So stehen 
Ihnen die folgenden Moglichkeiten zur Verfiigung: 

1. in Abhangigkeit vom gewahlten Modus: 

- Graphikauflosung von bis zu 640*200 Punkten 

- bis zu 80 Zeichen Text pro Zeile 

- 27 verschiedene Farben 

- maximal 16 Farben bei gleichzeitiger Darstellung 

2. leistungsfahige Graphikbefehle 

3. Graphikzeichen 

4. selbstdefinierte Zeichen 

Ein weiterer Leckerbissen des CPC 6128 sind seine Tonfahig- 
keiten. So konnen drei Tone gleichzeitig erzeugt werden, wobei 
die Tonhohe 8 Oktaven umfassen kann. AuBerdem ist es mog- 
lich, die vom Computer erzeugte Musik liber ein anschlieBbares 
HIFI-Gerat auszugeben. Da jeder Tonkanal des CPC iiber eine 
Warteschlange von maximal 5 Tonanweisungen verfligt, ist eine 
vom normalen Programmablauf unabhangige Tonerzeugung 
moglich. 

Aber auch wenn man von den zweiten 64 KByte RAM absieht, 
steht Ihnen einiges an Speicherplatz zur Verfiigung. Dies konnen 
Sie leicht selbst feststellen, wenn Sie nach dem Einschalten Ihres 
Rechners 


?FRE(0) 

eingeben. Die Funktion FRE gibt namlich die GroBe des von 
BASIC nicht benutzten Speicherplatzes zuriick und das sind nach 
dem Einschalten immerhin 42249 Byte (1 KByte = 1024 Byte). 
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Fur die meisten einfachen Anwendungen ist dies sicherlich ein 
ausreichender Wert. 

Wenn Sie Ihren CPC ausschalten, ist natiirlich alles, was im Ar- 
beitsspeicher war, unwiederbringlich verloren. Aber zum Fest- 
halten Ihrer Daten und zum Aufbewahren Ihrer Programme gibt 
es ja externe Speichermedien. Und da benotigen Sie kein zusatz- 
liches Gerat, sondern Sie konnen das eingebaute Diskettenlauf- 
werk benutzen. 

Schon in der Grundausstattung ist Ihr Schneider CPC 6128 also 
eine voll funktionsfahige Rechenanlage. Mit ihr lassen sich die 
grundlegenden Datenverarbeitungsschritte 

- Daten- bzw. Informationsaufnahme (iiber die Tastatur) 

- Informations- bzw. Datenspeicherung (intern Oder ex¬ 
tern) 

- Auswerten bzw. Verarbeiten dieser Daten 

- Ergebnisausgabe (iiber den Bildschirm) 

ausfiihren. 

Die Ergebnisausgabe muB jedoch nicht iiber den Bildschirm er- 
folgen. Nach dem AnschluB eines Druckers Oder einer modernen 
elektronischen Schreibmaschine konnen Sie sich Ihre Programm- 
ergebnisse Oder Ihre Programmlistings schwarz auf weiB ausge- 
ben lassen (hardcopy). Einige der von Computern iibernomme- 
nen Aufgaben waren ohne AnschluB eines derartigen Ausgabe- 
gerates undenkbar (denken Sie etwa an Textverarbeitung). 

Der CPC ist mit einer normalen Parallelschnittstelle fur den 
DruckeranschluB ausgeriistet, so daB Sie diesbeziiglich eine sehr 
groBe Druckerauswahl haben. 

Diese Schnittstelle konnen Sie aber auch dazu benutzen, um Da¬ 
ten zu anderen Rechnern zu iibertragen. Mittels Band oder Dis¬ 
kette ist dies ja in der Regel nicht moglich, da die Aufzeich- 
nungsformate unterschiedlich sind. Um nun Ihren CPC mit ei- 
nem anderen Rechner zu verbinden, ist lediglich ein Kabel not- 
wendig, das den Printer-AnschluB des CPCs mit dem Userport 
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des anderen Rechners (der natiirlich auch iiber eine Parallel- 
schnittstelle verfiigen muB, wie es z. B. bei alien Commodore- 
Rechnern der Fall ist) verbindet. Zusatzlich benotigen Sie aller- 
dings noch ein Maschinenprogramm fur den Empfangsrechner, 
um die Daten vom CPC zu iibernehmen und in den Code des 
Empfangsgerates umzuwandeln. Durch Angabe der Stream- 
Nummer 8 konnen Sie dann Befehle wie PRINT oder LIST zur 
Daten- und Programmubertragung von Ihrem CPC aus gebrau- 
chen. 

Diese Moglichkeit der Dateniibertragung wird hier jedoch nicht 
eingehender erortert, um den Rahmen dieses Buches nicht zu 
sprengen. Fur den noch nicht so weit fortgeschrittenen Hobby- 
Programmierer diirfte dies ohnehin nicht so interessant sein. 
Ebenso wird die Betreibung eines Akustikkopplers oder eines 
Modems im weiteren Verlauf dieses Buches nicht beriicksichtigt. 
Vielmehr sind die meisten Kapitel fur die Grundausstattung ge- 
schrieben, also Schneider CPC 6128 mit eingebautem Disketten- 
laufwerk plus Schneider GT65 Grunmonitor. 

Natiirlich kommen einige Anwendungen, wie etwa die Textver- 
arbeitung, nicht ohne Drucker aus. Darauf wird aber dann im 
einzelnen hingewiesen. 

Auch die Moglichkeit der Verwendung verschiedener Farben 
wird nur dann angegeben, wenn sie wirklich sinnvoll und erfor- 
derlich ist, um die Besitzer eines Griinmonitors nicht vermeint- 
lich zu frustrieren. Es muB ja auch nicht sein, daB jeder Ergeb- 
nisausdruck moglichst farbig ist. Vielmehr wird der Umgang mit 
Farben exemplarisch erlautert (siehe Kapitel 6), so daB der in- 
teressierte Leser unter Umstanden alles, was "schwarzweiB" ist, 
seinen Wunschen gemaB umandern kann. 


1.2 Die Programmiersprache BASIC und wie man mit ihr die 
Arbeit am Rechner organisiert 

Die Programmiersprache BASIC gehort zu den sogenannten be- 
nutzerorientierten Sprachen. Im Gegensatz zu den sogenannten 
maschinenorientierten Sprachen (Assembler, RPG usw.) entfallt 
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hier die Notwendigkeit, Speicheradressierungen vorzunehmen. 
Diese Aufgabe wird vom Betriebssystem des Rechners erledigt. 

Fur Einsteiger ist BASIC sehr gut geeignet, da es durch seinen 
einfachen Aufbau den Zugang zum Programmieren erleichtert 
und den Ubergang zu anderen Programmiersprachen leicht er- 
moglicht: 

BASIC = beginners All purpose Symbolic Instruction Code 

BASIC besteht, wie andere Programmiersprachen auch, aus 
Kommandos, Statements, Funktionen und Operatoren. Komman- 
dos richten sich dabei unmittelbar an das Betriebssystem des 
Rechners. Sie sagen dem Computer quasi direkt, was er tun soli. 
Statements hingegen sind Programmanweisungen, die erst im 
Programmablauf abgearbeitet werden. Erst nach dem Pro- 
grammstart werden sie somit wirksam. 

Funktionen sind Befehle, die den Wert eines Ausdrucks berech- 
nen. Sehr haufig sind damit mathematische Begriffe wie Sinus, 
Cosinus oder Logarithmus gemeint. Die Operatoren schlieBlich 
stellen logische Verknupfungen her. Insbesondere zur Program- 
mierung von Bedingungen (IF-Statements) werden die Operato¬ 
ren genutzt. 

Die hier gemachte Unterscheidung zwischen Kommandos und 
Statements trifft auf Schneider-BASIC nicht zu. Vielmehr kdn- 
nen im Schneider-BASIC alle Statements auch als Kommandos 
und alle Kommandos auch als Statements benutzt werden. Sta¬ 
tements und Kommandos sind also identisch. Diese traditionelle 
Unterscheidung hat aber ihren didaktischen Sinn. Es lassen sich 
so namlich die Befehle identifizieren, die vorwiegend als Kom¬ 
mandos verwandt werden. Diese Befehle dienen in der Regel der 
Organisation der Arbeit am Rechner. Im folgenden finden Sie 
eine Auflistung der wichtigsten Organisationsarbeiten mit den 
entsprechenden Kommandos: 
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Starten eines Programms - RUN 

Laden eines Programms von Diskette - LOAD 

Schreiben eines Programms auf Diskette - SAVE 

Ausgabe aller Programmzeilen auf dem Bildschirm - LIST 

Ldschen des Bildschirms - CLS 

Korrektur einer Programmzeile - EDIT 

Ldschen eines im Speicher befindlichen Programms - NEW 

LSschen eines Programmteils - DELETE 

Automatische Programmzeilennumerierung - AUTO 

Fortsetzung eines unterbrochenen Programms - CONT 

Ausgabe des Inhaltsverzeichnisses einer Diskette - CAT 

Umnumerierung eines Programms - RENUM 

Kombination zweier Programme - CHAIN MERGE, MERGE 

Die einzelnen Parameter dieser Kommandos entnehmen Sie bitte 
Ihrem Bedienungshandbuch. Sie sind leicht nachvollziehbar, so 
daI3 sich hier eine Wiederholung eriibrigt. Ebenfalls in Ihrem 
Handbuch finden Sie eine leistungsfahige Alternative zum 
Kommando EDIT. Dies ist die COPY-Cursor-Methode, mit der 
Sie sehr schnell Korrekturen vornehmen konnen. Auch hier soli 
der ausfiihrlichen Beschreibung im Benutzerhandbuch nichts 
hinzugefiigt werden. 

Aber wie sieht denn nun ein BASIC-Programm aus? 

Jedes BASIC-Programm besteht aus einer Folge von Programm- 
anweisungen, die dem Rechner zeilenweise eingegeben werden. 
Diese Programmzeilen (auch Satze genannt) werden, wenn das 
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Programm gestartet worden ist, nacheinander vom Rechner ab- 
gearbeitet. Jede Zeile erhalt dabei eine Zeilen- bzw. Satznum- 
mer, um Ordnung im Programm herzustellen. Die Programmzeile 
mit der niedrigeren Satznummer wird - abgesehen von Pro- 
grammverzweigungen - immer vor der Programmzeile mit der 
hbheren Satznummer abgearbeitet. Das Ende einer Programm¬ 
zeile erkennt der Rechner dadurch, daB der Benutzer die 
RETURN- oder ENTER-Taste driickt. In einem Satz kbnnen 
auch mehrere Statements stehen. Damit der Rechner erkennt, wo 
ein Statement endet und das nbchste beginnt, ist zwischen den 
Anweisungen ein Doppelpunkt zu setzen. 

Wenn Sie Ihren CPC einschalten, meldet er sich mit READY. Er 
ist dann bereit, Kommandos entgegenzunehmen. Um nun bei- 
spielsweise eine einfache Multiplikationsaufgabe zu Ibsen, ware 
es unnbtig, extra ein BASIC-Programm zu schreiben. Vielmehr 
kbnnen Sie dann im direkten Modus (ohne Zeilennummern) 
Kommandos eingeben, die dann direkt ausgefuhrt werden. Diese 
Betriebsart wird vorwiegend dort verwandt, wo der Computer 
als "Taschenrechner" eingesetzt wird. Die Aufgabe 256 * 317 lafit 
sich dann mit Hilfe folgender Eingabe losen: 

? 256*317 (ENTER) 

Das Fragezeichen, welches wir schon im letzten Kapitel zur 
Speicherplatzabfrage mit FRE benutzt haben, steht dabei als 
Abkurzung fur das Kommando PRINT. Es ist eines der wich- 
tigsten BASIC-Befehle, da es zur Ausgabe von Ergebnissen oder 
- wie in dem obigen Beispiel - zum Rechnen verwendet wird. 


1.3 Wie ein Programm entsteht 

Bevor Sie eine Idee oder eine Aufgabenstellung programmtech- 
nisch umsetzen, sollten Sie sich einige Gedanken liber den 
Lbsungsweg machen. Die Erfassung der Logik eines Problem- 
lbsungsweges ist als Voraussetzung fur die Erstellung eines Pro- 
gramms anzusehen. Es lohnt sich quasi nicht, sich an den Rech¬ 
ner zu setzen, wenn diese gedanklichen Vorarbeiten nicht gelei- 
stet sind. Dies gilt insbesondere fur den Anfanger. Aber auch 
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der fortgeschrittene Programmierer, der bemuht ist, ein "gutes" 
Programm zu schreiben, wird diese Milhen auf sich nehmen, da 
dann das Austesten des Programms erheblich weniger Zeit in 
Anspruch nimmt. Zudem erhalt man ein iibersichtlich aufge- 
bautes Programm, das auch fremden Benutzern von seiner Logik 
her zuganglich ist. 

Worin besteht aber nun die Vorbereitung der eigentlichen Pro- 
grammierung? 

Zur Losung eines bestimmten EDV-Problems ist es zunSchst 
einmal erforderlich, die Aufgabenstellung zu analysieren und zu 
prazisieren. Wenn Sie zum Beispiel aus einer Reihe von 
MeBwerten einen Mittelwert berechnen wollen, so miissen Sie 
wissen, welche Formel Sie zugrunde legen. Beim arithmetischen 
Mittel ist z. B. die Summe aller Werte durch die Anzahl aller 
Werte zu dividieren. 

Von besonderer Bedeutung ist der nun folgende Schritt: Und 
zwar geht es darum, eine Abfolge der fur die ProblemlOsung 
notwendigen Schritte zu skizzieren. Das Aufzeichnen der ein- 
zelnen Arbeitsschritte, die das Programm spater durchlaufen soli, 
erfolgt ublicherweise durch die Aufstellung eines Programmab- 
laufplans (FluBdiagramm). Ein derartiger Ablaufplan besteht aus 
einzelnen Symbolen, die genormt sind. Die nachfolgende Liste 
zeigt die wichtigsten der nach DIN 66001 zulSssigen Symbole: 
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Interne 

Verarbeitung 


Logische 
Verzweigung 


Unterprogramm- 
auf ruf 


Operation 
von Hand 


Eingabe 
Oder Ausgabe 


Ablauflinie 


Zusammenf iihrung 
von Ablauflinien 



Grenzstelle 



Schnittstelle 


Bemerkungen 
zum Ablaufplan 






Ein Beispiel vermag vielleicht am besten, die Anwendung eines 
FluBdiagramms fur die Programmierung zu verdeutlichen. Gehen 
wir einmal davon aus, daB Sie fur n verschiedene Werte w das 
arithmetische Mittel berechnen wollten, dann konnte das ent- 
sprechende FluBdiagramm wie folgt aussehen: 





s=s+i-ter Wert 



Ausgabe q 
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Dieses FluBdiagramm in BASIC-Anweisungen umzusetzen, ist 
dann nicht mehr schwierig: 


10 INPUT"Anzahl der Werte ";n 
20 DIM w(n) 

30 i=i+1 

AO PRINT iter Wert INPUT w(i) 
50 s=s+w(i) 

60 IF i<n THEN 30 
70 q=s/n 
80 PRINT"q =";q 
90 END 


Die benutzten Variablen haben dabei folgende Bedeutung: 


n Anzahl der Werte 

i Index 

w(i) die n verschiedenen Werte 

s die Summe der n Werte 

q das arithmetische Mittel 


Diese Programmversion halt sich ziemlich streng an den obigen 
Ablaufplan. Das gleiche Programm laBt sich auch etwas effek- 
tiver gestalten: 


10 INPUT"Anzahl der Werte ";n:DIM w(n) 
20 FOR i=1 TO n 

30 PRINT i;".ter Wert INPUT w(i) 

40 s=s+w(i):NEXT i 
50 q=s/n:PRINT"q =";q:END 


Bei der Umwandlung eines FluBdiagramms in ein Programm gibt 
es - wie Sie sehen - in der Regel verschiedene Moglichkeiten. 
Wie optimal nun gerade Ihre Version ist, hiingt im wesentlichen 
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von Ihren Erfahrungen ab. Falls Sie prinzipielle Schwierigkeiten 
mit den hier vorgestellten Programmen haben sollten, so ver- 
zweifeln Sie nicht. In Kapitel 3 dieses Buches werden alle ver- 
wandten Anweisungen im einzelnen erlautert. 

Wenn Sie das obige Beispiel nachvollzogen haben, versuchen Sie 
sich am besten gleich an einem ahnlichen Problem. Benutzen Sie 
dabei Ihre eigene Sprache. Die Umsetzung Ihrer Begriffe in 
BASIC-Anweisungen erfolgt ja erst spater. Wichtig ist ferner, 
daB Sie geniigend ins Detail gehen. Es reicht nicht, in einem 
Kiistchen nur "Berechnung" zu schreiben. Sie mussen schon pra- 
zisieren, was berechnet werden soli und wie. Weiterhin ist es 
ratsam, mit einem Bleistift zu arbeiten, um leichter Korrekturen 
vornehmen zu konnen. Lassen Sie zudem genug Platz zwischen 
den einzelnen Symbolen. Gegebenenfalls konnen Sie dann noch 
etwas nachtragen. Ansonsten ist es wichtig, daB Sie Ihre eigenen 
Erfahrungen machen. Und bedenken Sie: Ablaufplane sind nicht 
extra fur die Programmiersprache BASIC entwickelt worden. Sie 
sind sprachenunabhSngig. So dienen sie beispielsweise auch in 
Rechenzentren der Dokumentation und der Ubersichtlichkeit der 
Programme. 

Auch die beste Vorarbeit hat in der Regel nicht ein auf Anhieb 
fehlerfrei funktionierendes Programm zur Folge. Sobald die Pro- 
blemstellung etwas komplizierter ist, mussen Sie sehr viel Zeit 
fur das "Austesten" des erstellten Programms einkalkulieren. 

Ein Tip, der Ihnen viel Arger ersparen kann: Geben Sie Ihrem 
Programm bzw. Ihrer Programmversion einen Namen und no- 
tieren Sie sich die Besonderheiten der Version, falls Sie Pro- 
gramm-alternativen haben. Loschen Sie Programmversionen, die 
Sie nicht mehr brauchen. Dies erhbht die Ubersichtlichkeit, ins- 
besondere dann, wenn Sie zwischenzeitlich nicht an Ihrem Pro¬ 
gramm weiterarbeiten konnen. 

Ein weiterer Tip fur die Testphase ist, das Programm in Teil- 
programme (Module) aufzuteilen und diese getrennt zu testen. 
Die Anweisung STOP empfiehlt sich dabei, um den Programm- 
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ablauf am Ende eines Moduls zu stoppen und Teilergebnisse 
abzufragen und zu kontrollieren. 

Weiterhin kann es sinnvoll sein, mit Hilfe der PRINT-An- 
weisung sonst verborgen bleibende Rechenwerte sichtbar zu 
machen. Muhelos laBt sich der PRINT-Befehl an entscheidenden 
Stellen des Programms einflechten. Sie haben dadurch eine sehr 
gute Kontrollmoglichkeit fur den Programmablauf. 

Nachdem nun noch einiges zur Fehlersuche und -beseitigung 
gesagt worden ist, wollen wir dieses Einfuhrungskapitel beenden. 
Weitere Informationen zur Fehlerbearbeitung finden Sie in Ka- 
pitel 5.5.4. Dort wird Ihnen gezeigt, wie Sie mit speziellen Be- 
fehlen Ihre Fehlerbearbeitung optimieren kdnnen. 
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2. Exkurs: Schneider-BASIC im Zusammen- 
hang 


Fiir alle die, die Interesse an statistischen Verfahren haben, ist 
das folgende Kapitel zu empfehlen. Wer keinen Bezug zu diesem 
Themenkreis hat, sollte gleich mit Kapitel 3 ins BASIC 
einsteigen. 

Insbesondere der BASIC-Neuling wird sich iiber die Anzahl der 
Schneider-BASIC-Anweisungen wundern. In Kapitel 3 des Be- 
dienungshandbuches sind schlieBlich 168 verschiedene Befehle 
aufgefiihrt. Der eine Oder andere Leser wird sich fragen, wie 
denn nun diese Befehlsvielfalt reduziert werden kann, wie also 
einige verwandte Befehle zu einer Kategorie zusammengefaBt 
werden kflnnen, so daB man nicht mehr mit 168 Befehlen, son- 
dern mit einer erheblich geringeren Anzahl verschiedener Kate- 
gorien arbeiten kann. Zwar werden Sie wissen, daB es beispiels- 
weise Graphik- Oder Musikbefehle gibt, die sich sicherlich iso- 
lieren lassen, aber damit ist es noch nicht getan. Alle Befehle 
sollen schlieBlich kategorisiert werden. 

Nun haben Sie vielleicht schon festgestellt, daB in der Liste aller 
Schneider-BASIC-Befehle in Kapitel 3 Ihres Handbuches zu je- 
dem Befehl die verwandten Befehle aufgefiihrt sind. Wollten Sie 
sozusagen mit Papier und Bleistift aufgrund dieses Kriteriums 
die Befehle kategorisieren, so miiBten Sie sehr viel Zeit inve- 
stieren. Zudem sind die dort angegebenen Verwandtschaftsbe- 
ziehungen nicht umkehrbar, d. h., die Verwandtschaft eines Be- 
fehles x zu einem Befehl y sagt noch nichts iiber die Verwandt¬ 
schaft des Befehles y zu dem Befehl x aus. Zum Beispiel hat der 
Befehl LIST laut Handbuch keine verwandten Befehle. Anderer- 
seits ist beim Befehl RENUM eine Verwandtschaftsbeziehung zu 
LIST angegeben. Man kann also durchaus von einem verwandt- 
schaftlichen Verhaltnis dieser beiden Befehle ausgehen. 

"Was soil das ganze", werden Sie vielleicht fragen. Sie kbnnen es 
sich denken: Im vorliegenden Buch finden Sie ein Programm, 
das eine Kategorisierung aller Schneider-BASIC-Befehle vor- 
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nimmt. Das Programm, eine detaillierte Beschreibung und einen 
Verfahrensablauf mit Beispieldaten finden Sie in Kapitel 9.2 
dieses Buches. Hier sollen nun im folgenden die Grundgedanken 
des Verfahrens und vor alien Dingen die Programmergebnisse 
dargestellt und interpretiert werden. 

Das Programm befindet sich im Anwenderkapitel, da man es 
auch fur andere Elemente (hier ist jeder BASIC-Befehl ein Ele¬ 
ment) benutzen bzw. umschreiben kann und weil zu Beginn 
dieses Buches der in BASIC noch nicht ganz "sattelfeste" Leser 
Schwierigkeiten haben kdnnte, dieses Programm zu verstehen. 

Wie bereits erwahnt, stellen alle Schneider-BASIC-Befehle, so 
wie sie in Kapitel 3 Ihres Bedienungshandbuches aufgefiihrt 
sind, die Ausgangsdaten dieses Analyseverfahrens dar. Dabei 
spielen die inhaltlichen Bedeutungen der Befehle keine Rolle, 
sondern lediglich die Verwandtschaftsverhaltnisse unter den Be- 
fehlen. Als Kriterium fur diese Verwandtschaftsverhaltnisse die- 
nen die im AnschluB an die jeweiligen Beschreibungen aufge- 
fiihrten Listen der verwandten Befehle. Da es bei diesem Ver- 
fahren um Zuordnungen und Gruppenbildungen geht, kann man 
auch von einem "Clusteranalyse-Verfahren" sprechen. Auf die 
Modalitaten der Clusteranalyse als multivariantes statistisches 
Verfahren kann hier jedoch nicht naher eingegangen werden. 


Grundgedanke ist nun der folgende: 

Zu Beginn des Rechenvorgangs stellt jeder einzelne Befehl mit 
seinen verwandten Befehlen eine eigenstandige Kategorie dar. 
Diese Kategorien werden im folgenden auch Datensatze genannt 
(also Befehl + verwandte Befehle). Immer dann, wenn nun ir- 
gendein Befehl sowohl in der einen als auch in einer anderen 
Kategorie vorhanden ist, werden diese beiden Kategorien zu- 
sammengefaBt und stellen im weiteren Verfahrensablauf nur 
noch eine Kategorie dar. Dieses Zuordnungsverfahren wird so- 
lange fortgesetzt, bis jede Kategorie nur noch Befehle hat, die 
in keiner anderen Kategorie auftauchen. Ergebnis ist dann eine 
bestimmte Zahl unterschiedlicher Kategorien, welche - jede fur 
sich - verwandte bzw. "ahnliche" Befehle enthalten, die jeweils 
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einen mehr Oder weniger abgeschlossenen Teil des BASIC-Vor- 
rats darstellen. Jede Kategorie ist natiirlich noch zu interpretie- 
ren, d. h., es sind noch "passende" Uberschriften fur sie auszu- 
wahlen. 

Soweit die Theorie. Kommen wir zu den praktischen Ergebnis- 
sen. Hierbei sei angemerkt, daO der CPC satte 17 Minuten und 
30 Sekunden braucht, um das Programm abzuarbeiten. Aber 
wenn Sie sich Kapitel 10.2 niiher ansehen, werden Sie auch ver- 
stehen warum. 
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Hier nun die Programmergebnisse: 

1 .te Kategorie 
CAT 

2 .te Kategorie 

CHR$ ASC 

3 .te Kategorie 
CLEAR 

4 .te Kategorie 
DEF FN 

5 .te Kategorie 

DEFSTR DEFINT DEFREAL 

6 .te Kategorie 

ERASE DIM 

7 .te Kategorie 

IF ELSE GOTO 

THEN 

8 .te Kategorie 
INSTR 

9 .te Kategorie 

JOY CLEAR INPUT INKEY 

INKEYS 

10 .te Kategorie 


LEN 
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11 .te Kategorie 
LET 

12 .te Kategorie 

LOG 10 EXP LOG 

13 .te Kategorie 

MIN MAX 

14 .te Kategorie 
MOD 

15 .te Kategorie 
NEW 

16 .te Kategorie 

NEXT FOR STEP 

TO 

17 .te Kategorie 
ON GOTO 

18 .te Kategorie 

OPENIN CLOSEIN EOF 

19 .te Kategorie 

POKE PEEK 

20 .te Kategorie 
REM 

21 .te Kategorie 


RESTORE 


DATA 


READ 
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22 .te Kategorie 

RESUME NEXT DERR ERL 

ERR ERROR ON ERROR GOTO 

RESUME 

23 .te Kategorie 

RIGHTS MIDS LEFTS 

24 .te Kategorie 

RND RANDOMIZE 

25 .te Kategorie 

SPEED KEY KEY DEF KEY 


26 .te Kategorie 
SQR 


27 .te Kategorie 


STOP CONT 

SPEED WRITE OPENOUT 
CLOSEOUT CHAIN 

LOAD MERGE 

RENUM DELETE 

EDIT AUTO 


END 

SAVE 

CHAIN MERGE 

RUN 

LIST 


28 .te Kategorie 

SYMBOL AFTER HIMEM MEMORY 

SYMBOL FRE 

29 .te Kategorie 

TAN ATN COS 

DEG RAD SIN 

PI 

30 .te Kategorie 

TRON TROFF 

31 .te Kategorie 


UPPERS 


LOWERS 
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32 .te Kategorie 


VAL 

STRS 

UNT 

CINT 

FIX 

I NT 

ROUND 

BINS 

DECS 

HEXS 

SGN 

ABS 

PRINT USING 

CREAL 

CALL 


33 .te Kategorie 
WAIT INP OUT 


34 .te Kategorie 

WHILE TIME 

AFTER EVERY 

ON SQ GOSUB SOUND 
ENV RELEASE 

GOSUB REMAIN 

El ON GOSUB 

ON BREAK CONT 


WEND 

SQ 

ENT 

RETURN 

DI 

ON BREAK STOP 
ON BREAK GOSUB 


35 .te Kategorie 

WRITE INPUT LINE INPUT 


36 .te Kategorie 

XOR AND OR 

NOT 


37 .te Kategorie 


YPOS 

MOVE 

MOVER 

ORIGIN 

XPOS 

WINDOW SWAP 

WINDOW 

WIDTH 

POS 

VPOS 

TESTR 

TEST 

TAGOFF 

TAG 

SPEED INK 

BORDER 

INK 

PLOTR 

GRAPHICS 

PEN PLOT 

PEN 

PAPER 

GRAPHICS 

PAPER 

MODE 

MASK 

DRAW 

DRAWR 

LOCATE 

CURSOR 

COPYCHRS 

CLG 

CLS 

FILL 

FRAME 



38 .te Kategorie 

ZONE PRINT STRINGS 

SPACES SPC TAB 

USING 
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Die Summe aller hier aufgefiihrten Befehle ist nicht 168, son- 
dern 179. Dies erklart sich daraus, da!3 fur einige der 
"verwandten Befehle" keine gesonderten Datensatze existieren 
(z.B. TROFF). 

Ansonsten sind die Ergebnisse keineswegs "ideal", da viele Kate- 
gorien nur einen, andere dafiir sehr viele Befehle aufweisen. 
Dies mag zum Teil an den Ausgangsdaten liegen, da aus inhalt- 
licher Sicht einige Kategorien durchaus zuordnungsbar erschei- 
nen. In einigen umfangreicheren Kategorien hingegen ist der in 
Kapitel 10.2 noch zu erklarende "Verkettungseffekt" zum Tragen 
gekommen, der in der Logik des Zuordnungsprozesses seine 
Ursache hat. 

Trotzdem lassen sich diese Ergebnisse interpretieren und mit 
Oberbegriffen belegen. Dazu ist es jedoch notwendig, einzelne 
Kategorien zusammenzufassen. Im folgenden finden Sie eine Ta- 
belle, in der Kategorien zusammengefaBt und dann mit Oberbe¬ 
griffen belegt werden. Zusatzlich sind in der dritten Spalte die 
Kapitel aufgefiihrt, in denen die zu den jeweiligen Kategorien 
gehorigen Befehle im wesentlichen erliiutert Oder behandelt wer¬ 
den. Und - vergleichen Sie die zusammengefaBten Kategorien 
doch einmal mit der Gliederung dieses Buches. Auch ohne jeg- 
liche BASIC-Kenntnisse konnen Sie so zumindest ein Inhalts- 
verzeichnis zu einem BASIC-Buch schreiben. Das ist zwar keine 
"kunstliche Intelligenz" (um ein Schlagwort zu gebrauchen), eine 
tolle Hilfe ist es aber allemal. 
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Kategorie 

Oberbegriff 

Kapitel 

1,15,20,27 

Organisation der Arbeit am 
Rechner und Dateiausgaben 

2.2,6.5.5 

9 

2 

Der ASCI I-Code 

5.3,7.4 

3,5,11, 

13,14,32 

Zahlen- und Variablen- 
manipulation und Definition 

4.2,5.4, 
6.2,6.5.1 

4 

Definition von Funktionen 

7.8 

6 

Speicherplatzbereitstellung 

4.2,4.5 

7,17 

Bedingungen, bedingte und unbe- 
dingte Programmspriinge 

4.3 

8,23,10,31 

Stringbearbeitung 

6.2 

9,35 

Eingaben 

4.5,7.10, 

9.2.1 

12,26,29 

Potenzen, Logarithmen, Quadrat- 
wurzeln und Trigonometrie 

4.2,5.4, 
7.7,7.8 

16 

Programmschleifen 

4.4 

18 

Disketteneingaben 

9 

19 

Speicherstellenbearbeitung 

5.2,5.7, 

6.5.5 

21 

Bereitstellen von Daten 

4.5 

22,30 

Fehlerbearbeitung 

6.5.4 

24 

ZufalIszahlen 

6.5.3 
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25 

Tastendefinition 

6.3.1 

28 

Speicherplatzorganisation 

Zeichendefinition 

5.6, 

6.3.2 

33 

Interfacebearbeitung 


34 

Unterprogramme, Programmunter- 
brechungen (BREAK und Echtzeit), 
Musik und bedingte Programmteil• 
wiederholungen 

4.4,4. 

8 

36 

Logik 

4.3 

37 

Graphik, Farbe, Fenster 

Cursor -Posit i on ierung 

6.4.7 

4.7 

38 

Ausgaben und deren 

Formatierungen 

4.7, 

9.2.1 
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3. Grundelemente der Programmiersprache 
BASIC 


3.1 Vorbemerkung 

In diesem Kapitel werden ganz wesentliche Sprachelemente 
thematisiert, die in den meisten BASIC-Programmen benutzt 
werden und von unschatzbarem Wert sind. Das Verstandnis die- 
ser grundlegenden Befehle stellt eine Voraussetzung fur das 
Verstandnis der folgenden Kapitel dar. 

Da dieses Buch jedoch kein reines Einsteigerbuch sein soil, wer¬ 
den die relevanten Befehle nur relativ knapp erlautert. Auch 
hier gilt, daG die Erkldrungen in Ihrem Bedienungshandbuch 
nach MOglichkeit nicht wiederholt werden sollen. Vielmehr sollte 
der BASIC-Anfanger dieses Kapitel in Verbindung mit dem Be- 
nutzerhandbuch durcharbeiten. Falls Sie schon erste BASIC-Er- 
fahrungen gemacht haben, kdnnen Sie dieses Kapitel naturlich 
getrost uberblattern. Allerdings sollten Sie beachten, daG hier 
auch einige "Schneider-spezifische" Dinge zur Sprache kommen. 

Und noch ein Hinweis fur den "blutigen" Anfanger: Auch wenn 
Ihnen die knappe Darstellung hier nicht ausreichen sollte, so be- 
denken Sie, daG die behandelten Sprachelemente in vielen Pro- 
grammen der noch folgenden Kapitel eingesetzt werden. Da 
diese Programme in der Regel ausfuhrlich dokumentiert werden, 
haben Sie dort noch die Gelegenheit, Verstandnisschwierigkeiten 
zu beseitigen. 


3.2 Variablen und Arithmetik 

Wie Sie noch sehen werden, ist es fur viele Zwecke sinnvoll, 
Speicherplatze im Rechner mit Namen zu belegen. Unter diesen 
Namen (im folgenden Variablen genannt) konnen dann unter- 
schiedliche Zahlen oder auch Texte gespeichert werden. 
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Es lassen sich drei Typen von Variablen unterscheiden: 

1. Reelle Variablen 

2. Ganzzahlige Variablen 

3. Stringvariablen 

Wahrend reelle Variablen jeden beliebigen Wert innerhalb der 
Rechengrenzen des Computers (die bei +/- 1.7E38 liegen, das 
sind 37 Nullen hinter der 17) annehmen konnen (dabei wird 
statt des Dezimalkommas ein Punkt gesetzt), weisen ganzzahlige 
Variablen als Werte als Zahlen zwischen (einschlieBlich) -32768 
und +32767 auf. Stringvariablen hingegen haben als Werte Sym- 
bolfolgen (0 bis 255 Zeichen), die in Anfiihrungszeichen zu set- 
zen sind. 

Die Namen der Variablen bestehen aus maximal 40 alphanume- 
rischen Zeichen, wobei das erste ein Buchstabe sein muB. 
Ganzzahlige Variablen werden zusatzlich mit dem %-Zeichen 
und Stringvariablen mit dem $-Zeichen versehen (also z. B. Yl% 
Oder aa$). Beachten Sie bei der Namensgebung, daB Sie keine 
fur Befehle reservierte Namen benutzen. 

Ein Wert wird einer Variablen zugewiesen, indem Sie zum Bei- 
spiel im Programmablauf Oder auch im Direktmodus schreiben: 
aa=5 Oder w3$="wer5" Oder auch a=b. Der Befehl LET, der in 
friiheren BASIC-Dialekten noch notwendig war, ist im 
Schneider-BASIC uberfliissig. Wenn Sie alle Variablen wieder 
auf Null setzen wollen, so benutzen Sie einfach die Anweisung 
CLEAR. 

Erwahnt sei an dieser Stelle, daB Sie mit den Anweisungen 
DEFINT, DEFREAL und DEFSTR Variablentypen fur ganze 
Variablenlisten festlegen konnen. Weiterhin ist mit den Funk- 
tionen STR$ und VAL die Umwandlung einer numerischen Va¬ 
riablen in einen Dezimalstring und umgekehrt moglich (siehe 
dazu auch Kapitel 5.2.1). 

Die bisher vorgestellten Variablen reprasentieren jeweils nur 
einen Wert. Wollen Sie unter einem Namen mehrere Werte 
speichern, so miissen Sie die Variable mit einem Index versehen, 
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um so die verschiedenen Werte ansprechen zu konnen. Dieser 
Index steht in Klammern hinter dem Yariablennamen, also z. B. 
x(0), x(l), x(2), x(3) ... x(10). Eine solche Variable nennt man 
Feldvariable Oder indizierte Variable. Die Gesamtheit aller Platze 
nennt man "Array". Per Voreinstellung des Rechners ist die In- 
dexobergrenze gleich 10. Werden pro Variable mehr als 11 Platze 
benbtigt, so ist eine Dimensionierung, d. h. eine Speicherplatz- 
reservierung, notwendig (siehe Kapitel 3.5). 

Anzumerken bleibt, daB der Index auch eine Variable sein kann, 
also z. B. x(i). Weiterhin sind doppelte und mehrfache Indi- 
zierungen moglich, also z. B. x(i,j) Oder x(i,j,k). Hier ist immer 
dann zu dimensionieren, wenn mehr als insgesamt 11 Speicher- 
platze bendtigt werden. 

Insbesondere die doppelte Indizierung wird haufig gebraucht, da 
mit ihr sehr schon Matrizen- Oder Tabellenelemente dargestellt 
werden kdnnen. Eine doppelt indizierte Variable x(i,j) mit den 
Laufvariablen i von 1 bis 3 und j von 1 bis 4 hatte beispiels- 
weise die folgenden 12 Elemente: 

x<1,1), x(1,2), x(1,3), x(1,4) 

x(2,1), x(2,2), x(2,3), x(2,4) 

x(3,1), x<3,2), x(3,3), x(3,4) 

Variablen konnen aber auch arithmetische Ausdriicke zugeordnet 
werden. Diese arithmetischen Ausdriicke werden aus Zahlen 
und/oder Variablen und arithmetischen Operatoren aufgebaut. 
Bei Verwendung veschiedener Operatoren in einem Ausdruck ist 
deren jeweilige Prioritat zu beachten. Weiterhin gelten die Re- 
geln der Klammersetzung, die aus der Schulmathematik bekannt 
sein diirften. 

Hier noch einmal die Prioritatenliste der wichtigsten mathema- 
tischen Operatoren: 

( ) Klammersetzung 

A Potenzierung 

* und / Multiplikation und Division 

+ und - Addition und Subtraktion 
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Zum SchluB dieses Kapitels sei noch erwahnt, daB einzelnen 
Variablen auch Funktionswerte zugeordnet werden konnen. Da- 
mit sind in diesem Zusammenhang keine selbstdefinierten 
Funktionen gemeint (siehe DEF FN, Kapitel 6.8), sondern die 
eingebauten mathematischen Funktionen wie SQR, LOG oder 
SIN. Die allgemeine Form des Funktionsaufrufs lautet: 

Variablenname = Funktionsname (Argument) 

Welche Argumente fur welche Funktionen zuiassig sind, das 
entnehmen Sie bitte Ihrem Handbuch. Auf jeden Fall wird aus 
dem Argument der Funktionswert berechnet und der Variablen 
links vom Gleichheitszeichen zugeordnet, zum Beispiel 


a=SQR(9), d. h. a=3. 


3.3 Logik, Bedingungen und Programmverzweigungen 

Ein BASIC-Programm wird in der Reihenfolge der Satznummern 
abgearbeitet, solange keine Programmverzweigungen (sog. 
Spriinge) auftreten. Abgesehen von der Unterprogrammtechnik 
stellen diese Spriinge die einzige Moglichkeit dar, von der vor- 
gegebenen Reihenfolge abzuweichen. 

Nun lassen sich aber die bedingten von den unbedingten Spriin- 
gen unterscheiden. Wdhrend es bei der unbedingten Sprungan- 
weisung GOTO nicht viel zu erkiaren gibt (erwahnt sei nur die 
Mdglichkeit, bei ON...GOTO den Sprung vom Wert einer Vari¬ 
ablen abhSngig zu machen, wie es bei der Programmierung eines 
sog. Menus geschieht), kann es bei der bedingten Sprungan- 
weisung fur den ungeiibten Leser Probleme mit der Bedingung 
geben. 

Der bedingte Sprung wird mit dem IF-Statement programmiert. 
Seine allgemeine Form lautet: 

IF Bedingung THEN Option (ELSE Option) 
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1st die Bedingung erfiillt, so wird die hinter THEN stehende 
Option ausgefiihrt. Diese Option kann entweder eine Satznum- 
mer sein, zu der verzweigt werden soil, Oder ein beliebiger Be- 
fehl. Wenn die Bedingung nicht erfiillt ist, geht die Programm- 
steuerung zur nachsten Programmzeile iiber, Oder es wird (falls 
vorhanden) die Option hinter ELSE ausgefiihrt. Sollten hinter 
dem IF-Statement weitere Anweisungen stehen, so werden diese 
nur ausgefiihrt, wenn die Bedingung erfiillt ist. 

Was wir bisher allgemein als Bedingung bezeichnet haben, ist 
nichts anderes als ein sog. logischer Ausdruck. Einen solchen 
Ausdruck kann man sich als Frage vorstellen, die nur mit ‘ja‘ 
Oder ‘nein‘ beantwortet werden kann. Die Bedingung ist nur 
dann erfiillt, wenn die Antwort auf die Frage ‘ja‘ lautet. Lautet 
sie ‘nein‘, ist die Bedingung nicht erfiillt. 

Ein logischer Ausdruck, wie er hier gebraucht wird, setzt sich 
aus Zahlen und/oder Variablen und/oder arithmetischen Aus- 
driicken sowie aus Vergleichsoperatoren und logischen Operato- 
ren zusammen. 

Dabei stehen Ihnen die folgenden Vergleichsoperatoren zur 
Verfiigung: 


= gleich 

<> ungleich 

> grdBer als 

< kleiner als 

>= groBer oder gleich 

<= kleiner oder gleich 


Zum Beispiel ist der Ausdruck 2<3 wahr (Antwort ‘ja‘), der 
Ausdruck 3*4<>12 hingegen ist falsch (Antwort l nein‘). 

In diesem Zusammenhang sei noch kurz etwas zu den Besonder- 
heiten des Gleichheitszeichens in der EDV-Terminologie gesagt. 
Wahrend z. B. die Rechenanweisung x=x+l in der Algebra falsch 
ware, ist sie in BASIC durchaus richtig. Sie besagt namlich etwa 
soviel wie, daB x nun gleich dem alten Wert von x plus 1 ist. 
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Der EDV-Neuling sollte sich mit dieser Besonderheit, die auch 
fiir die anderen Vergleichsoperatoren gilt, vertraut machen. 

Die logischen Operatoren sind der Booleschen Algebra entlehnt. 
Sie finden unter anderem in der elektronischen Digitaltechnik 
ihre Anwendung. Da man mit ihnen auch umfangreichere und 
kompliziertere logische Aussagen aufbauen kann, werden sie 
auch Verkniipfungsoperatoren genannt. 

Ihr CPC kennt vier logische Operatoren, n&mlich AND, NOT, 
OR und XOR. Zum Beispiel ist die Aussage x>10 AND x<12 
nur dann wahr, wenn x gleich 11 ist. Ansonsten ist sie falsch. 

Am besten Sie experimentieren ein wenig mit diesen Operatoren, 
solange Sie noch unsicher bei ihrer Verwendung sind. Ihr CPC 
sagt Ihnen schon, ob Sie "richtig" Oder "falsch" liegen. 

Zum SchluB sei noch etwas zur Beziehung der verschiedenen 
Operatoren in einer Aussage gesagt. Dazu zahlen in diesem Zu- 
sammenhang nicht nur die in diesem Kapitel vorgestellten 
Operatoren, sondern ebenfalls die arithmetischen Operatoren des 
letzten Kapitels. 

Alle Operatoren werden - ahnlich wie die arithmetischen 
Operatoren untereinander - nicht der Reihe nach, sondern in ei¬ 
ner bestimmten Rangfolge abgearbeitet. Dabei haben immer die 
arithmetischen Operatoren oberste PrioritSt, gefolgt von den 
Vergleichsoperatoren und den logischen Operatoren (niedrigste 
PrioritSt). 


3.4 Programmschleifen und bedingte Programmteihvieder- 
holungen 

In einem Programm ist es h&ufig notwendig, bestimmte Pro- 
grammteile zu wiederholen. Dies lSI3t sich durchaus mit den 
schon behandelten Sprunganweisungen programmieren. Wollten 
Sie zum Beispiel die Summe aller ganzen Zahlen von 1 bis 100 
berechnen, so sShe das entsprechende Programm folgendermaBen 
aus: 
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10 i=i+1 
20 s=s+i 

30 IF l<100 THEN 10 
40 PRINT s 
50 END 


Die Variable i nimmt dabei ganzzahlige Werte von 1 bis 100 an, 
und im Feld s wird der jeweilige Wert i zu der schon gebildeten 
Summe s hinzuaddiert. Der Programmteil Satz 10-30 wird also 
solange durchlaufen, wie die Variable i grSGer oder gleich 1 und 
kleiner oder gleich 100 ist. In Zeile 40 kann dann das Ergebnis 
ausgegeben werden, und in Zeile 50 wird das Programm be- 
endet. 

Immer wenn eine bestimmte Operation mehrmals durchzufiihren 
ist, spricht man von einer Schleife. Mit den Anweisungen FOR 
und NEXT ist die Schleifenkonstruktion einfacher. Das obige 
Beispiel sieht programmtechnisch dann anders aus: 


10 FOR i=1 TO 100 
20 s=s+i 
30 NEXT i 
40 PRINT s 
50 END 


Wenn die Programmsteuerung an das FOR-Statement gelangt, 
wird die Laufvariable i gleich 1 gesetzt, und Satz 20 wird mit 
diesem Wert durchlaufen. Wird das Statement NEXT erreicht, 
erhoht sich i um die Schrittweite (da fur STEP nichts angegeben 
wurde, ist die Schrittweite gleich 1), und Satz 20 wird erneut 
abgearbeitet. Dies wird solange fortgesetzt, bis bei Erreichen des 
NEXT der Endwert 100 uberschritten wird. Erst dann werden 
die Satze 40 und 50 bearbeitet. 

Zu erwShnen sei noch, daG in Schleifen hineingesprungen und 
daG Schleifen auch verlassen werden konnen (auf den Wert der 
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Laufvariablen achten!). Weiterhin kann fur STEP auch ein nega- 
tiver Wert angegeben werden. 

Zudem konnen Schleifen geschachtelt werden. Eine derartige 
Schachtelung ist zum Beispiel dann erforderlich, wenn eine dop- 
pelt indizierte Variable mit Werten belegt werden soil. Nehmen 
wir das Beispiel des letzten Kapitels, wo die Variable x(i,j) fur i 
gleich 1 bis 3 und j gleich 1 bis 4 vorgestellt wurde. Wollten Sie 
dieser Variablen mit Hilfe des INPUT-Statements (siehe nachstes 
Kapitel) Werte zuordnen, so konnten Sie die folgenden Pro- 
grammanweisungen benutzen: 


FOR i=1 TO 3 
FOR j=1 TO 4 
INPUT x(i,j) 
NEXT j 
NEXT i 


Zwar muB im NEXT-Statement der Variablenname nicht ange¬ 
geben werden (BASIC findet es automatisch heraus, auf welches 
FOR sich ein NEXT bezieht), jedoch dient es bei Verschach- 
telungen der Programmiibersicht, wenn Sie es trotzdem tun. 

Eine ganz andere Moglichkeit der Schleifenkonstruktion haben 
Sie, wenn Sie die Befehle WHILE und WEND benutzen. Der 
zwischen WHILE (Schleifenanfang) und WEND (Schleifenende) 
liegende Programmteil wird dabei solange durchlaufen, wie der 
logische Ausdruck im WHILE-Statement erfiillt ist. Mit WHILE 
und WEND lassen sich sozusagen die Befehle IF...THEN und 
FOR...NEXT verkniipfen. Immer dann, wenn die Anzahl der 
Schleifendurchlaufe unbekannt ist, wird in der Regel mit 
WHILE und WEND gearbeitet. Sehr schon kann man so zeitab- 
hangige Operationen programmieren (siehe Kapitel 3.6). Aber 
auch unser obiges Summationsproblem laBt sich mit WHILE und 
WEND losen: 
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10 UHILE i<100 
20 i=i+1 
30 s=s+i 
40 WEND 
50 PRINT s 
60 END 


3.5 Dateneingabe und Speicherplatzreservierung 

Zur Speicherplatzreservierung gibt es eigentlich nicht mehr viel 
zu sagen (siehe Kapitel 3.2). Immer wenn fur ein Feld (Array 
bzw. Matrix) mehr als die per Voreinstellung zur Verfugung 
stehenden 11 Platze bendtigt werden, ist mit Hilfe des DIM- 
Statements Platz zu reservieren. Zu beachten ist, daB das DIM- 
Statement moglichst vor alien Rechenanweisungen steht. Sollten 
Sie im Programmablauf ein Array nicht mehr bendtigen, so kdn- 
nen Sie den Inhalt des Arrays mit dem Befehl ERASE loschen. 
Der Speicherplatz steht Ihnen dann wieder zur Verfugung. 

Kommen wir zu dem wichtigen Punkt der Dateneingabe. Wenn 
Sie dem Rechner groBere Datenbestande bereitstellen wollen, so 
ist es empfehlenswert, dies mit den Anweisungen DATA und 
READ zu tun. Dabei werden die mit dem DATA-Statement be- 
reitgestellten Werte mit dem READ-Statement in den Computer 
eingelesen bzw. den Variablen des READ-Befehls zugeordnet 
(der Reihe nach von links nach rechts). Datenwerte und Va¬ 
riablen werden jeweils durch Kommata voneinander getrennt. 
Zu beachten ist, daB im READ-Statement genauso viele Va¬ 
riablen angegeben werden wie im DATA-Statement Werte. 
Weiterhin ist bei der gemischten Verwendung verschiedener 
Datentypen auf eine "richtige" Variablenzuordnung zu achten. 
Soil ein String als Datenwert Kommata oder Doppelpunkte ent- 
halten, so ist dieser String im DATA-Statement in Anfiihrungs- 
zeichen zu setzen, da Kommata ansonsten der Trennung der 
einzelnen Datenwerte dienen. 

Normalerweise liest der Rechner die Daten hinter DATA der 
Reihe nach. Wenn aber, nachdem schon Daten gelesen wurden. 
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nicht die nachfolgenden, sondern die ersten Daten erneut gelesen 
werden sollen, ist der Datenbestand zu restaurieren. Dies ge- 
schieht mit dem Befehl RESTORE. Mit ihm ist es auch mdglich, 
auf bestimmte DATA-Programmzeilen zuzugreifen (siehe Be- 
nutzerhandbuch). Ein Beispiel fur den nicht so haufigen Ge- 
brauch des RESTORE-Statements finden Sie in Kapitel 7.5. Dort 
wird in dem Programm "Eigenkomposition" der Datenbestand 
immer wieder restauriert, um die Ausgabe der programmierten 
Melodie ununterbrochen zu wiederholen. 

Eine andere Moglichkeit der Dateneingabe ist mit dem INPUT- 
Befehl gegeben. Erreicht das Programm dieses Statement, so 
wird die Abarbeitung des Programms gestoppt, und fur die hin- 
ter INPUT aufgefiihrten Variablen kdnnen Daten eingegeben 
werden (durch Kommata voneinander getrennt). Auch hier ist 
natiirlich auf den Daten- bzw. Variablentyp zu achten. Im Ge- 
gensatz zu DATA und READ konnen Sie so Daten im Dialog 
eingeben. Jedoch ist diese Dateneingabe fur grdBere Daten- 
mengen weniger geeignet, da doch relativ leicht Eingabefehler 
auftreten. Wenn Sie dann nicht wissen, welcher Variablen Sie 
einen falschen Wert zugeordnet haben (um dies dann nach einem 
Programmstopp im Direktmodus zu korrigieren), miissen Sie die 
gesamte Eingabe wiederholen, was sehr zeitaufwendig sein kann. 

Soil eine Stringvariable Kommata enthalten, so ist der Text in 
Anfiihrungszeichen eingeschlossen einzugeben. Leichter haben 
Sie es da, wenn Sie direkt den Befehl LINE INPUT benutzen. 
Sie kdnnen dann Anfuhrungzeichen in einer Stringvariablen auf- 
nehmen. Mehr zu dem Vergleich von INPUT und LINE INPUT, 
insbesondere in bezug auf die Dateneingabe von Diskette, finden 
Sie in Kapitel 8.2.1. 

Im Gegensatz zum INPUT-Befehl halt das Programm bei 
INKEYS nicht an. Weiterhin kann nur eine Variable eingegeben 
werden, die nur ein Zeichen oder eine Ziffer lang sein darf. Es 
wird hier namlich von der Tastatur abgefragt, ob eine Taste ge- 
driickt wurde, die fur einen String steht. Dies soli an einem 
Beispiel verdeutlicht werden. Nehmen wir einmal an, Sie haben 
eine Ergebnisausgabe, fur die der Platz auf dem Bildschirm 
nicht ausreicht. Sie miissen dann eine Warteschleife konstruieren, 
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die immer dann erreicht wird, wenn der Bildschirm voll ist. Dies 
wird haufig mit der Konstruktion "Warten auf Taste" program- 
miert und sieht folgendermaBen aus: 


500 PRINT"Bitte eine Taste druecken" 
510 x$=INKEY$:IF x$= M " THEN 510 


Erreicht der Rechner diesen Programmteil, wird das Programm 
solange angehalten, bis "irgendeine" Taste gedriickt worden ist, 
da der Computer einen Leerstring "" ausgibt, wenn keine Taste 
gedriickt wird. Sie kOnnen das IF-Statement natiirlich beliebig 
umandern (fur die von Ihnen gewiinschten Tastenbetatigungen). 
Auch ist es haufig sinnvoll, mehrere IF-Abfragen hinterein- 
anderzuschalten. 

Wenn Sie die Tastatur direkt danach fragen wollen, welche Taste 
gedriickt wird, so kdnnen Sie den Befehl INKEY benutzen. Das 
Argument dieser Anweisung ist immer eine Tastennummer 
(siehe Aufstellung rechts der Tastatur auf Ihrem Computer). 
Wenn die entsprechende Taste gedriickt wird, gibt der Rechner 
die Zahl 0 zuriick und -1, wenn sie nicht gedriickt wird. Die 
Kombination mit der SHIFT- und der CONTROL-Taste ist 
ebenfalls mdglich (siehe Benutzerhandbuch). 

Das obige Beispiel laBt sich somit auch verandern: 


500 PRINT"Bitte die Leertaste druecken" 
510 IF INKEY(47)=-1 THEN 510 


Wenn Sie bei diesem Beispiel vor der Betatigung der Leertaste 
einige andere Tasten driicken, so erscheinen diese Zeichen, die 
dann noch im Tastaturpuffer liegen, anschlieBend auf dem 
Bildschirm. Beim Tastaturpuffer handelt es sich um einen klei- 
nen Speicher, in dem bis zu 20 Zeichen zwischengespeichert 
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werden konnen. Mit CLEAR INPUT konnen Sie ihn entleeren. 
Tippen Sie einfach 

520 CLEAR INPUT 

ein und starten den Programmteil erneut. Sie werden sehen, daB 
mit dieser Anweisung die Puffer-Informationen geloscht werden. 

Am Ende dieses Kapitels sei lediglich erwahnt, daB auch ein an- 
geschlossener Joystick (Steuerkniippel) der Informationseingabe 
dient. In Kapitel 6.10 werden Sie mehr iiber diese Mdglichkeit 
erfahren. 


3.6 Unterprogramme, Unterbrechungen und die eingebaute 
Uhr 

Bei einigen Problemstellungen ist es notwendig, Teilaufgaben 
mehrfach zu erledigen. Um sich nun die Arbeit zu ersparen, 
diese Teilaufgaben mehrfach zu programmieren, gibt es die 
Mdglichkeit, dafur ein gesondertes Programm (Unterprogramm) 
zu entwickeln, das man vom eigentlichen Programm 
(Hauptprogramm) aus mehrmals aufrufen kann. Solche Unter¬ 
programme (auch Subroutinen genannt) kdnnen an beliebiger 
Stelle im Hauptprogramm stehen und werden mit dem Befehl 
GOSUB aufgerufen. Am Ende eines Unterprogramms steht der 
Befehl RETURN. Es wird dann zuruck ins Hauptprogramm 
verzweigt und zwar zu dem Statement, das dem GOSUB-Befehl 
folgt. 

Um das Gesagte zu verdeutlichen, wollen wir ein Beispiel be- 
trachten. Sagen wir einmal, Sie haben einen kleinen Betrieb und 
wollen fur verschiedene GroBen das arithmetische Mittel fur 
einen Abrechnungszeitraum berechnen. Sinnvollerweise werden 
Sie die Berechnung des Mittelwertes nur einmal in einem Unter¬ 
programm programmieren und dieses Unterprogramm dann 
mehrfach aufrufen. 
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Eine programmiertechnische Losung dieses Problems konnte fol- 
gendermaBen aussehen: 


10 DATA 10.5,12.95,19.4:REM Preise 
20 DATA 145.25,90.23,311:REM Umsaetze 
30 FOR i=1 TO 3 
40 READ p(i) 

50 NEXT 

60 n=3:FOR i=1 TO 3:x(i)=p(i):NEXT:G0SUB 1000 
70 PRINT"Durchschnittspreis =";d 
80 FOR i=1 TO 3 
90 READ u(i) 

100 NEXT 

110 n=3:FOR i=1 TO 3:x(i)=u(i):NEXT:G0SUB 1000 
120 PRINT"Durchschnittsumsatz =";d 
130 END 

1000 REM Unterprogramm 
1010 s=0 

1020 FOR i=1 TO n 
1030 s=s+x(i) 

1040 NEXT 
1050 d=s/n 
1060 RETURN 


In den Zeilen 10 und 20 werden drei Preise und drei Umsatz- 
ziffern als Ausgangsdaten bereitgestellt. Diese Daten werden je- 
weils in den Zeilen 30 bis 50 und 80 bis 100 eingelesen (p(i) = 
Preise, u(i) = UmsStze). Da nun im Unterprogramm (Satz 1000- 
1060) das arithmetische Mittel nur fur die hypothetische Va¬ 
riable x(i) berechnet wird, muB in den Zeilen 60 und 110 vor 
dem Unterprogrammaufruf die Variable x(i) gleich der mit Da¬ 
ten belegten Variablen p(i) bzw. u(i) gesetzt werden. Gleichzeitig 
benbtigt das Unterprogramm eine Information beziiglich der 
Anzahl der Daten (n=3). Nach der jeweiligen Abarbeitung des 
Unterprogramms kdnnen dann die Ergebnisse in den Zeilen 70 
und 120 ausgegeben werden. Wie Sie sehen, werden die Ergeb¬ 
nisse unabMngig von den Ausgangsdaten im Feld d abgelegt. 
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Dieses Programm laBt sich fur beliebig viele GroBen erweitern. 
Fur ernsthafte Anwendungen sind jedoch noch zusatzliche 
Rechenschritte einzufiigen, wie zum Beispiel die Berechnung der 
Ums&tze aus den GroBen ‘Preise 1 und ‘Mengen 1 . Auch die Ver- 
schachtelung von Unterprogrammen ist moglich (Aufruf eines 
Unterprogramms durch ein anderes Unterprogramm). 

Mit der Unterprogrammtechnik lassen sich sehr schone Pro- 
grammstrukturen schaffen. So kdnnen Sie die Steuerung eines 
Programmablaufs an den Programmanfang setzen und den ei- 
gentlichen Programminhalt in Unterprogrammen programmieren. 
Die GOSUB-Routinen kommen in diesem Falle auch dann zur 
Anwendung, wenn sie nur einmal benotigt werden. 

Ein derartiger Programmaufbau dient nicht nur der Ubersicht- 
lichkeit eines Programms, sondern hat auch den Vorteil, daB Sie 
die einzelnen Unterprogramme unabhangig voneinander testen 
konnen. Sie konnen sich denken, daB Sie auf diese Weise relativ 
schnell zu lauffahigen Programmen kommen. 

Durch zweimaliges Driicken der ESC-Taste kdnnen Sie die Ab- 
arbeitung eines Programms stoppen. Wollen Sie dies verhindern, 
so stehen Ihnen die Befehle ON BREAK CONT, ON BREAK 
GOSUB und ON BREAK STOP zur Verfugung (siehe Benutzer- 
handbuch). Weiterhin haben Sie mit ON GOSUB die Moglich- 
keit, einen Unterprogrammaufruf von einem Selektor abhangig 
zu machen (siehe dazu auch Kapitel 3.3, ON GOTO). 

Eine weitere Mdglichkeit, Unterbrechungen zu programmieren, 
besteht in der Nutzung der eingebauten Uhr. Ihr CPC besitzt 
namlich eine Echtzeituhr, mit der Sie Ihre Programme zeitab- 
hangig steuern bzw. unterbrechen kdnnen. So ist Schneider- 
BASIC dazu in der Lage, unterschiedliche Operationen eines 
Programms gleichzeitig durchzufiihren (Multitasking). Zum 
Beispiel kdnnen Sie mit den Befehlen AFTER und EVERY, in 
Abhangigkeit von dem anzugebenden Zeitparameter, Unterpro¬ 
gramme aufrufen. Dabei wird der eigentliche Programmablauf 
solange fortgesetzt, bis die angegebene Zeit abgelaufen ist. Das 
folgende Programmchen zeigt Ihnen, wie Sie jede Minute ein 
Unterprogramm aufrufen kdnnen: 
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10 EVERY 3000,0 GOSUB 1000 
20 REM Simulation des Hauptprogramms 
30 FOR i=1 TO 1E+20:NEXT 
40 END 

1000 REM Unterprogramm 
1010 j=j+1 

1020 PRINT j;"Minuten sind vergangen 
1030 RETURN 


Hierbei gibt der Parameter 3000 des EVERY-Statements das 
Zeitintervall an (in Einheiten zu Funfzigstelsekunden, 3000*0.02 
= 1 Minute). Der Parameter 0 bestimmt den Zeitgeber (insgesamt 
stehen Ihnen 4 mit unterschiedlicher Prioritat (siehe Benutzer- 
handbuch) zur Verfugung). 

Wenn es in Ihr Programm paBt, kbnnen Sie Zeitgeberunter- 
brechungen mit den Befehlen DI und El auch auBer Kraft bzw. 
wieder in Kraft setzen. AuBerdem haben Sie mit der Funktion 
REMAIN die Mdglichkeit, einen Zeitgeber nicht nur auBer 
Kraft zu setzen, sondern sich die verbleibende Restzeit ausgeben 
zu lassen. 

Mit Hilfe der Funktion TIME haben Sie eine weitere Moglich- 
keit, die Echtzeituhr Ihres CPC zu nutzen. TIME gibt in Ein¬ 
heiten einer Dreihundertstelsekunde die seit dem Einschalten 
Ihres Rechners vergangene Zeit an. Der Gebrauch dieser Funk¬ 
tion wird insbesondere dann interessant, wenn Sie einzelne Va- 
riablen mit der TIME-Funktion belegen. So wird zum Beispiel 
in dem folgenden Programm gezeigt, wie Sie Ihren CPC als 
Wecker gebrauchen kbnnen: 


10 REM Wecker 
20 CLS 

30 PRINT"Nach welcher Zeit" 

40 PRINT"soll der Weckton erklingen":PRINT 
50 INPUT"Stunde ";st 
60 INPUT"Minute ";mi 
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70 INPUT"Sekunde »;se 
80 z=st*3600+mi*60+se+TIME/300 
90 IF TIME/300<z THEN 90 
100 SOUND 1,200,600,15:GOTO 100 


In diesem Programm wird die eingegebene Zeit in Stunden, Mi- 
nuten und Sekunden sowie die von der Funktion TIME wieder- 
gegebene Zeit jeweils in Sekunden umgerechnet. Die Einheit der 
Zeitvariablen "z" ist also eine Sekunde. Der Vergleich der ab- 
gelaufenen Zeit mit der angegebenen Zeit erfolgt in Satz 90. 
Diesen Vergleich kdnnen Sie natiirlich auch anders gestalten. 
Zudem kdnnen Sie dieses Weckprogramm auch mit dem Befehl 
AFTER programmieren. Jedoch ist dann einer der vier Zeitge- 
ber belegt, was in dem obigen Programm nicht der Fall ist. Der 
Ubung halber sollten Sie dies vielleicht einmal ausprobieren. 

In Satz 100 wird solange ein Ton erzeugt, bis die ESC-Taste 
zweimal gedriickt wird. Falls Sie die Parameter der SOUND- 
Anweisung nicht kennen sollten, so ist dies nicht weiter tragisch. 
In Kapitel 7 werden wir uns noch naher mit der Musikpro- 
grammierung beschiiftigen. 


3.7 Ausgaben und Formatierungen 

Der PRINT-Befehl ist einer der wichtigsten BASIC-Befehle. In 
den vorangegangenen Programmbeispielen haben wir ihn auch 
schon kennengelernt. Er dient zur Ausgabe von Ergebnissen Oder 
Kommentaren, kann aber auch zum Rechnen benutzt werden 
(zum Beispiel PRINT 3+5). 

Im folgenden werden die elementaren Regeln zur Verwendung 
des PRINT-Befehls noch einmal kurz zusammengestellt: 

Die auszugebenden Grdfien im PRINT-Befehl werden durch 
Kommata getrennt, wenn der jeweilige Ausdruck zu Beginn der 
nSchsten Bildschirmzone fortgesetzt werden soil. Die Breite der 
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Bildschirmzonen konnen Sie mit dem Befehl ZONE andern (die 
Standardbreite betragt 13 Stellen). 

Bei Benutzung des Semikolons als Trenner schlieBt sich der 
Ausdruck an die schon erfolgte Ausgabe an. 

Ein Komma Oder ein Semikolon am Ende eines PRINT-Befehls 
unterdruckt den sonst erfolgenden Zeilenvorschub. 

In Abhangigkeit vom Bildschirmmodus (MODE-Befehl) haben 
Sie 20, 40 oder 80 Spalten bei 25 Zeilen fur Ihre Ausgaben zur 
Verfugung. Mit dem Befehl LOCATE haben Sie nun die Mdg- 
lichkeit, den Textcursor (in Kapitel 6 werden wir noch den 
Graphikcursor kennenlernen) an eine beliebige Stelle auf dem 
Bildschirm zu bringen. LOCATE hat zwei Parameter. Der erste 
gibt die gewunschte Spalte und der zweite die gewiinschte Zeile 
an. In Verbindung mit LOCATE kdnnen Sie auch ein Zeichen 
mit COPYCHRS kopieren (siehe Benutzerhandbuch). 

Abgesehen von der vergleichsweise einfachen Mdglichkeit, mit 
PRINT TAB oder PRINT SPC Leerstellen in einen Ausdruck 
einzufugen, sowie der Mdglichkeit, mit SPACES oder STRINGS 
Textausgaben zu beeinflussen (siehe dazu auch Kapitel 5.2.1), ist 
die Verwendung des Befehls PRINT USING angebracht, um 
detailliertere Angaben zum Format eines Ausdrucks zu machen. 
Das Format wird dabei durch eine Formatschablone bestimmt, 
die aus den sog. Formatzeichen besteht. Insbesondere bei der 
Erstellung von Tabellen, wo Zahlen exakt untereinander stehen 
miissen und Texte nur eine bestimmte Lange haben diirfen, ist 
der PRINT-USING-Befehl sehr gut zu gebrauchen. 

Bei den einzelnen Formatzeichen wird zwischen numerischen 
Ausdrucken und Textausdriicken unterschieden. In Ihrem Be¬ 
nutzerhandbuch sind diese sehr detailliert beschrieben. Trotzdem 
kbnnte der eine oder andere Leser Schwierigkeiten mit dieser 
Anweisung haben. Daher findet der Anfanger im fogenden ein 
Programm, das ihm die Arbeit und das Experimentieren mit 
PRINT USING erleichtert. Nach dem Programmstart muB der 
Programmbenutzer entscheiden, ob er eine Zahl oder einen Text 
formatieren will. Dies geschieht in Form eines kleinen Aus- 
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wahlmeniis, das im weiteren Verlauf dieses Buches in ahnlicher 
Form noch haufiger vorkommt. AnschlieBend miissen eine Zahl 
Oder ein Text, sowie eine Angabe zum Format eingegeben wer- 
den. Sodann erfolgt der formatierte Ausdruck, und nach einem 
Tastendruck erscheint wieder das Menu. 

Wie dieses Programm dahingehend verbessert werden kann, Ein- 
gabefehler abzufangen, erfahren Sie Kapitel 5.5.4 (ON ERROR 
GOTO). 


10 REM Formathilfe 
20 CLS 

30 PRINT TAB(22) ,l Eingabe":PRINT: PR I NT 
40 PRINT' , Zahl' l ;TAB(25)"1":PRINT 
50 PRINT"String";TAB(25)"2":PRINT 
60 PRINT"Programm beenden";TAB(25)"3 ,, :PRINT 
70 PRINT:PRINT"Ihre VJaht ?'• 

80 PRINT:PR I NT:PRINT 

90 a$=INKEYS 

100 IF a$="1" THEN 140 

110 IF a$="2" THEN 190 

120 IF a$="3" THEN END 

130 GOTO 90 

140 INPUT"Zahl ";z 

150 LINE INPUT"Format ";f$ 

160 PRINT:PRINT"Formatierte Ausgabe 
170 PRINT:PRINT USING f$;z 
180 GOTO 230 
190 INPUT"String ";s$ 

200 LINE INPUT"Format ";f$ 

210 PRINT:PRINT"Formatierte Ausgabe 
220 PRINT:PRINT USING f$;s$ 

230 LOCATE 7,25 

240 PRINT"Bitte eine Taste druecken !" 

250 aS=INKEY$:IF a$="" THEN 250 
260 GOTO 20 
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Variablenliste: 

a$ String, der den Wert der gedriickten Taste zuriick- 

gibt 

f$ Stringvariable zur Darstellung einer Format- 

schablone 

s$ der zu formatierende Textausdruck 

z die zu formatierende Zahl 


Programmbeschreibung: 

10 Kommentar der nicht ausgegeben wird 

20 Ldschen des Bildschirms 

30-80 Ausgabe des Auswahlmeniis 

90-130 Auswertung der gedriickten Taste und ent- 

sprechende Programmverzweigungen (bzw. Pro- 
grammende). In Zeile 130 erfolgt ein Riicksprung 
zu Satz 90, um eine "dauernde" (bis eine der ange- 
gebenen Tasten gedriickt wird)Tastaturabfrage zu 
gewahrleisten. 

Diesen Programmabschnitt konnte man natiirlich 
auch einfacher gestalten, indem man die INPUT- 
Anweisung und nicht die INKEY$-Anweisung 
verwenden wiirde. Jedoch ware dann, nach der 
Eingabe einer Zahl, auch die RETURN oder die 
ENTER-Taste zu driicken, was den Programmab- 
lauf verlangsamen wiirde. 

Eine Verbesserungsmdglichkeit existiert hier noch 
darin, den beim INKEYS-Befehl normalerweise 
nicht sichtbaren Cursor mit dem Befehl CURSOR 
einzuschalten (siehe Benutzerhandbuch). 

140-170 Nach der Eingabe einer Zahl und einer For- 
matschablone, erfolgt die formatierte Ausgabe. Die 



56 


Das sroRe BASIC-Buch zum CPC 6128 


Formatschablone wird hier durch die Stringvariable 
f$ dargestellt. Es wird dabei mit LINE INPUT ge- 
arbeitet, da auch Kommata als Formatzeichen auf- 
treten konnen. 

180 An dieser Programmstelle mtlBten eigentlich An- 

weisungen fiir die Erstellung einer Warteschleife 
und fiir die Riickverzweigung zur Meniiauswahl 
stehen. Da dies jedoch auch nach der formatierten 
Stringausgabe erforderlich ist, wird hier lediglich 
zu den entsprechenden Satzen (Satz 230-260) ver- 
zweigt. 

Natiirlich laBt sich das Programm auch dahin- 
gehend andern, die Satze 230 bis 260 als Unterpro- 
gramm aufzufassen und mit GOSUB aufzurufen. 

190-220 Entsprechend des Programmteils fiir numerische 
Ausgaben (Satz 140-170), erfolgt hier die Forma- 
tierung eines Strings. Falls der einzugebende String 
auch Kommata enthalten soil, miiBten Sie auch fiir 
s$ den Befehl LINE INPUT benutzen. 

230-260 Warten auf Taste (Kommentarausgabe in der un- 
tersten Bildschirmzeile) und Rucksprung zum 
Menii 
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4. Hardware und Software - BASIC und der 
CPC 


4.1 Einfiihrung 

Nachdem Ihnen im letzten Kapitel die grundsatzlichen BASIC- 
Elemente aufgezeigt wurden, soli Ihnen nun eine Vorstellung 
von der internen Verarbeitung eines BASIC-Programms vermit- 
telt werden. Zwar konnen Sie auch leistungsfahige Programme 
schreiben, ohne sich Gedanken iiber das Innenleben des Com¬ 
puters zu machen, jedoch wird sich Ihre Beziehung zu Ihrem 
CPC 6128 sicherlich andern, wenn Sie eine Ahnung davon be- 
kommen, wie er mit dem, was Sie ihm eingeben, umgeht. Zu- 
dem werden Sie einige BASIC-Befehle, die mit Bit-signifikanten 
Parametern arbeiten (zum Beispiel SOUND, MASK, SYMBOL 
Oder JOY), besser verstehen, wenn Sie etwas iiber Binarzahlen, 
Bits und Bytes wissen. 

Vorweg sei allerdings eindringlich darauf hingewiesen, daB in 
einem BASIC-Buch keine umfassenden Erlauterungen zur Ma- 
schine erfolgen konnen. Vielmehr geht es somit in diesem Ka¬ 
pitel um relevante Zusatzinformationen fur den BASIC-Pro- 
grammierer. Derjenige, der beispielsweise ernsthaft die 
Maschinensprache erlernen mochte, ist auf weitergehende Lite- 
ratur angewiesen (z.B. Das Maschinensprachebuch zum CPC von 
DATA BECKER). 


4.2 Einige grundsatzliche EDV-Begriffe 

Die einzelnen BASIC-Befehle werden vom Computer nicht di- 
rekt verstanden. Sie miissen erst in eine dem Computer ver- 
standliche Form gebracht werden. Diese Aufgabe wird vom 
BASIC-Interpreter iibernommen. Wenn Sie einen Befehl iiber die 
Tastatur eingeben und die ENTER- oder RETURN-Taste beta- 
tigen, wird der Befehl vom Interpreter fiir die CPU in die soge- 
nannte Maschinensprache umgewandelt und erst dann ausge- 
fiihrt. Die CPU (Central Processing Unit) ist das Gehirn des 



58 


Das sroRe BASIC-Buch zum CPC 6128 


Computers. Beim CPC ist dies ein Z-80-Baustein, der einer der 
gebrauchlichsten 8-Bit-Prozessoren im Microcomputerbereich ist. 

Die eigentliche Datenverarbeitung findet also in der Zentralein- 
heit, in der Central Processing Unit, statt. Organisatorische Ar- 
beiten, wie die Verwaltung des Speichers, werden vom Be- 
triebssystem (der sog. Firmware) ubernommen. Als BASIC-Pro- 
grammierer miissen Sie sich also keine Gedanken iiber Speicher- 
platzadressierungen machen. 

Dies ist nur notwendig, wenn Sie direkt die Maschinensprache 
benutzen wollen. Dann werden die einzelnen Maschinencodes in 
die Speicherstellen hineingeschrieben. Dies geschieht durch den 
Befehl POKE. Da der Rechner - wie Sie vielleicht bereits wissen 
- nur die Ziffern 0 und 1 versteht (Binarzahlen), bestehen diese 
Codes auch nur aus diesen Zahlen. 

Eine zeitlich weniger aufwendige und komfortablere Art der 
Programmierung in Maschinensprache ist es jedoch, einen soge- 
nannten Maschinensprachemonitor zu benutzen. Dieser nimmt 
Ihnen die Arbeit des langen Pokens ab. 

Um den Inhalt einer Speicherstelle zu erfahren, miissen Sie den 
Befehl PEEK anwenden. PEEK (i) gibt Ihnen den Wert der 
Speicherstelle i wieder. Wenn Sie ein Maschinenprogramm star- 
ten wollen, miissen Sie den Befehl CALL verwenden. Mit CALL 
x kdnnen Sie somit von BASIC aus ein Maschinenprogramm ab 
der xten Speicherstelle aufrufen. 

Assembler ist eine Programmiersprache, die es Ihnen ermoglicht, 
mit Abkiirzungen (sog. mnemonics) fur die Maschinensprache- 
befehle zu arbeiten. Die einzelnen Befehle werden dabei in 
Binarzahlen umgewandelt, damit die Maschine sie auch versteht. 
Der Z 80 hat iibrigens einen Befehlssatz von mehr als 600 Be- 
fehlen. Deren ErlSuterung wiirde natiirlich bei weitem den 
Rahmen des vorliegenden Buches sprengen. Sowieso ist zu ver- 
muten, dafi der noch nicht ganz "sattelfeste" BASIC-Program- 
mierer durch die kurzen Erlauterungen in diesem Kapitel eher 
verwirrt worden ist. Aber lassen Sie sich nicht verunsichern. 
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Vielleicht helfen Ihnen die folgenden Kapitel schon iiber einige 
Verstandnisschwierigkeiten hinweg. 


4.3 Der ASCII-Code 

Wie schon erw&hnt wurde, kann ein Rechner nur Zahlen verar- 
beiten. Deshalb werden die Zeichen, die Sie iiber die Tastatur 
eingeben, in einen Zahlencode iibersetzt. Dies geschieht in der 
Regel nach dem American Standard Code for Information In¬ 
terchange, kurz ASCII-Code. Zwar finden Sie in Ihrem Be- 
dienungshandbuch eine Aufstellung iiber die jeweiligen Zuord- 
nungen, jedoch kdnnen Sie auch die Funktion ASC benutzen, 
um den ASCII-Wert eines Zeichens zu erfahren. Geben Sie bei- 
spielsweise im Direktmodus 

PRINT ASCC'a") 

ein, so erscheint auf dem Bildschirm der Wert 97. 

Da nun der Buchstabe "a" im ASCII-Code immer den Wert 97 
hat, interpretiert jeder Informationstr3ger (Drucker, anderer 
Computer), der auch mit dem ASCII-Code arbeitet (das sind fast 
alle), die Zahl 97 als Buchstabe "a". Ohne eine derartige 
Standardtisierung ware ein Datenaustausch zwischen ver- 
schiedenen Informationstragern nicht moglich. Nur so ist zum 
Beispiel auch die Ubertragung von Daten iiber ein Modem mog¬ 
lich. 

Sie kSnnen mit Ihrem CPC auch ein Programm als ASCII-Datei 
abspeichern: 

SAVE "Name",Al 

Diese Mdglichkeit ist insbesondere dann interessant, wenn Sie 
ein Programm in eine Textverarbeitung einlesen wollen. 

Die ASCII-Werte 32 bis 127 werden fiir Buchstaben, Zahlen und 
einige andere Zeichen verwendet. Die Werte 0 bis 31 stehen fiir 
bestimmte Steuerzeichen, auf die wir weiter unten noch zu 
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sprechen kommen. Der Wertebereich von 0 bis 127 stellt den 
Standard-ASCII-Code dar. Die in Ihrem Handbuch aufgefiihrten 
Werte 128 bis 255 stehen hingegen fur bestimmte Graphik- 
zeichen Ihres CPC 6128. 

Fur den BASIC-Programmierer ist die Umkehrung des ASCII- 
Befehls mit der Funktion CHR$ interessant. Wenn Sie zum Bei- 
spiel 


CHR$(97) 

eingeben, so erscheint das zugehdrige Zeichen "a" auf dem Bild- 
schirm. 

Mit dem folgenden Programmchen konnen Sie sich den gesamten 
Zeichensatz Ihres CPCs ausgeben lassen: 


10 FOR i=32 TO 255 
20 PRINT CHR$(i); 
30 NEXT 


Bei der Benutzung von Graphikzeichen in Programmen ist die 
Verwendung dieser Funktion sicherlich angebracht, da ein mit 
der CONTROL-Taste auf den Bildschirm gebrachtes Graphik¬ 
zeichen spatestens beim Ausdruck des Programmlistings zu Un- 
eindeutigkeiten fuhren kann (was nicht zuletzt am benutzten 
Drucker liegt). Zudem ist es nicht immer ganz einfach, ein be- 
stimmtes Zeichen mit der CONTROL-Taste zu finden. 

Geben Sie beispielsweise im Direktmodus den Befehl PRINT 
und danach in Anfuhrungszeichen ein CONTROL ‘G‘ ein, so 
ertont nach Bet&tigung der RETURN-Taste eine Klingel. Das in 
Anfuhrungszeichen stehende Graphikzeichen ruft eine Sonder- 
funktion auf, die Sie genauso mit 

PRINT CHR$(7) 


aufrufen konnen. Diese Funktion gehort zu den schon oben er- 
wahnten Steuerzeichen. In Ihrem Handbuch finden Sie eine de- 
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taillierte Aufstellung dieser Steuercodes. Wenn Sie zum Beispiel 
die bei einigen anderen Computern zu findende HOME-Taste 
vermissen, so geben Sie doch einfach 

PRINT CHR$(30) 

ein. Sie werden sehen, daB der Cursor dann in die linke obere 
Ecke des Bildschirms gesetzt wird. 

Insbesondere dann, wenn Funktionen des Rechners, die ub- 
licherweise iiber die Tastatur ausgeldst werden, programmge- 
steuert aufgerufen werden sollen, ist die Funktion CHR$ sehr 
nutzlich. Denken Sie etwa an die Cursorsteuerungen Oder an das 
Carriage Return (Wagenriicklauf), das Sie mit 

PRINT CHR$(13) 
aufrufen kOnnen. 


4.4 Zahlensysteme 

Die Zentraleinheit Ihres CPC versteht nur die aus den Ziffern 0 
und 1 bestehenden Binarzahlen. Ein Computer setzt sich eben 
aus einer Vielzahl elektronischer Schaltkreise zusammen, und da 
gibt es nur zwei Zustande, namlich "Strom flieBt" (Ziffer 1) und 
"Strom flieBt nicht" (Ziffer 0). 

Bevor wir uns nun naher mit dem binSren Zahlensystem be- 
schaftigen, wollen wir uns noch einmal verdeutlichen, wie das 
uns alien bekannte und gebrauchliche Dezimalsystem aufgebaut 
ist. Betrachten wir ein Beispiel: 

Die Zahl 2375 laBt sich auch folgendermaBen darstellen: 


2375 = 2*1000 + 3*100 + 7*10 + 5*1 
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dabei ist: 

2*1000 = 2*10*3 
3*100 = 3*10*2 
7*10 = 7*10*1 

5*1 = 5*10*0 

Jeder Ziffer der Dezimalzahl 2375 ist also eine bestimmte 
Zehnerpotenz zugeordnet. Auf diese Art und Weise konnen Sie 
alle denkbaren Dezimalzahlen darstellen. 

Im Binar- Oder Dualsystem wird genauso vorgegangen. Nur wird 
dort nicht mit der Basis 10, sondern mit der Basis 2 gearbeitet. 
Betrachten wir wieder ein Beispiel: 

Die Binarzahl 10101010 ist im Dezimalsystem gleich: 


1*2*7+0*2*6+1*2*5+0*2*4+1*2*3+0*2*2+1*2*1+0*2*0 


Die einzelnen Ziffern der Binarzahl 10101010 entsprechen einer 
bestimmten Zweierpotenz, so wie die Ziffern einer Dezimalzahl 
einer bestimmten Zehnerpotenz entsprechen. 

Summieren Sie die einzelnen Teilprodukte auf, so ergibt sich fur 
die Binarzahl 10101010 die Dezimalzahl 170. Einfacher geht 
diese Umrechnung jedoch, wenn Sie 

PRINT &x10101010 

im Direktmodus eingeben. Nach Betatigung der RETURN-Taste 
erscheint dann die Dezimalzahl 170 auf dem Bildschirm. 

Wenn Sie eine Dezimalzahl in eine Binarzahl umwandeln wollen, 
so konnen Sie ganz einfach die Funktion BINS benutzen. Sie 
sollten sich jedoch zumindest einmal klar machen, wie diese 
Umrechnung funktioniert: Zunachst miissen Sie uberlegen, wel- 
che hochste Potenz von 2 sich in der Dezimalzahl unterbringen 
laBt. Wie wir oben gesehen haben, ist dies bei der Dezimalzahl 
170 die Potenz 2 A 7. Dieser Wert (128) wird nun von der umzu- 
rechnenden Dezimalzahl abgezogen. Mit dem Rest (42) wird ge- 
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nauso verfahren. 1st die nachst niedrigere Potenz (2 A 6) nicht in 
dem Rest enthalten (was bei einem Rest von 42 der Fall ist), 
wird natiirlich eine "0" gesetzt. In Kapitel 7.3 finden Sie ein 
Programm, das auf diese Art und Weise Umrechnungen vor- 
nimmt. Sie sehen dabei, wie sich einzelne Befehle durch BASIC- 
Programme ersetzen lassen. 

Ein weiteres Zahlensystem ist, wie wir in Kapitel 4.5 erfahren 
werden, fur die Computertechnik von groBer Bedeutung. Es ist 
das Hexadezimalsystem. Dort wird die Zahl 16 als Basis ver- 
wendet. Somit werden auch 16 verschiedene Zeichen in diesem 
Zahlensystem benotigt. Zur Darstellung dieser zusatzlichen Zei¬ 
chen werden Buchstaben herangezogen, so daB die uns bekannte 
dezimale Ziffernfolge 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 

hexadezimal so aussieht: 

1 2 3 4 5 6 7 8 9 A B CO E F 10 11 12 13 14 

Die Umrechnung von Hexadezimalzahlen in Dezimalzahlen und 
umgekehrt verhiilt sich genauso wie die Umrechnung von 
Binarzahlen. Zum Beispiel ist: 

3 F 0 B = 3*16 A 3 + 15*16*2 + 0*16*1 + 11*16*0 

Leichter haben Sie es allerdings, wenn Sie im Direktmodus bei- 
spielsweise 

PRINT &FF 

eintippen. Als Ergebnis erhalten Sie dann die Dezimalzahl 255. 
Zu beachten ist hierbei, daB mit dieser Funktion nur Hexadezi¬ 
malzahlen umgerechnet werden kdnnen, die kleiner als 7FFF 
sind. Bei grdBeren Werten wird 65536 von dem Ergebnis abge- 
zogen. Wollen Sie also grbBere Hexadezimalzahlen umrechnen, so 
mussen Sie 65536 zu dem Ergebnis hinzuaddieren. 
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Die Funktion HEX$ konnen Sie benutzen, um Dezimalzahlen in 
Hexadezimalzahlen umzuwandeln. Auch hier gibt es eine Ein- 
schrankung fur den Wertebereich (siehe Benutzerhandbuch). 
"Von Hand" miiBten Sie uberlegen, welche hochste Potenz von 
16 gerade noch in die Dezimalzahl paBt, einen Rest bilden usw. 

Auf weitere Beispiele soli an dieser Stelle verzichtet werden. Es 
sei Ihnen hiermit jedoch dringend dazu geraten, selbst ein paar 
Umrechnungen vorzunehmen. Mit Ihrem CPC konnen Sie die 
erzielten Ergebnisse schlieGlich ausgezeichnet kontrollieren. 


4.5 Bits und Bytes 

Die Ziffer einer Binarzahl, also eine bestimmte 0 oder 1, wird 
Bit (Binary digiT) genannt. Ein Bit ist die kleinste Informati- 
onseinheit eines Computers. Bei einem Wert von 1 spricht man 
auch von einem gesetzten Bit sowie bei 0 von einem nicht ge- 
setzten Bit. Da Ihr CPC einen 8-Bit-Prozessor hat, konnen in ei¬ 
ner Speicherstelle nur Dezimalwerte stehen, die ins BinSrsystem 
umgewandelt nicht mehr als 8 Stellen beanspruchen. Wie Sie 
leicht aus 2 A 8 = 256 ersehen, ist die Dezimalzahl 255 die groBte 
mit 8 Binarziffern darstellbare Zahl: 


255 = 1 *2*7+1 *2*6+1*2*5+1*2*4+1*2*3+1*2*2+1*2*1+ 1*2*0 

Mit 8 Binarziffern konnen Sie also Dezimalzahlen zwischen 0 
und 255 darstellen. Auch wenn fur kleinere Dezimalzahlen 
eigentlich weniger als 8 Binarstellen benotigt wiirden, wird im- 
mer mit 8 Stellen gearbeitet, also zum Beispiel 01010101 fur die 
Dezimalzahl 85. Eine solche Achtergruppe heiBt dann Byte. 

Da Ihr CPC insgesamt 65536 (2 A 16) Bytes groBen Speicherbe- 
reich besitzt, kann er diese Speicherstellen nur erreichen, wenn 
er zu ihrer Adressierung zwei Bytes verwendet. In der 
Maschinensprache werden Speicherstellen (Adressen) daher im- 
mer in Highbyte und Lowbyte verschliisselt (hoherwertiges und 
niederwertiges Byte). Diese beiden Bytes werden dann in zwei 
Speicherstellen abgelegt. Das Highbyte konnen Sie berechnen, 
indem Sie die betreffende Speicherstelle durch 256 teilen. Ein 
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Beispiel soil Ihnen den Umgang mit Lowbytes und Highbytes 
verdeutlichen: 

Wollten Sie die Adresse 49159 in ein High- und ein Lowbyte 
zerlegen, so mussen Sie folgende Berechnung durchftihren: 

49159/256 = 192 , Rest 7 

Somit erhiilt das Highbyte den Wert 192 und das Lowbyte den 
Wert 7. Wenn Sie in einem Programm eine Speicherstelle an- 
sprechen (zum Beispiel mit POKE), so wird diese Adresse durch 
den Rechner in ein Low- und ein Highbyte zerlegt. 

Die groBte Adresse, namlich 65535, erklart sich daraus, daB das 
Highbyte und das Lowbyte jeweils maximal den Wert 255 an- 
nehmen konnen: 

255 * 256 + 255 = 65535 

Aber vielleicht haben Sie sich schon gefragt, welche Rolle das 
hexadezimale Zahlensystem in diesem Zusammenhang spielt. Es 
ist ganz einfach. Der Vorteil des hexadezimalen Systems liegt 
darin, daB man ein Byte mit zwei Zeichen darstellen kann. Da- 
durch verkiirzt sich die Eingabezeit von Maschinenprogrammen 
und Daten ganz erheblich. Zum Beispiel wird so aus dem Dezi- 
malwert 255 ein kurzes "FF". Zur Ermittlung eines Hexadezi- 
malwertes fur ein Byte brauchen Sie dann nur noch mit einem 
maximalen Exponent 1 zur Basis 16 zu rechnen. 

Auf diese Art und Weise lassen sich auch Binarzahlen sehr leicht 
in Dezimalzahlen umwandeln, zum Beispiel: 

0011 1010 (bin.) = 3A (hexa) = 3*16*1 + 10*16*0 = 58 (dez.) 

Sie sehen, daB sich der "Umweg" uber die hexadezimalen Zahlen 
lohnt, da man mit 16 A 1 und 16 A 0 problemlos umgehen kann. 
Auch die Umwandlung einer BinSrzahl mit 8 Ziffern in eine 
Hexadezimalzahl ist sehr einfach, da jede Halfte der BinSrzahl 
fur sich in eine Hexadezimalziffer umgewandelt wird. 
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4.6 Der Speicher des CPC 

Dem Speicherbelegungsplan in Ihrem Bedienungshandbuch kon- 
nen Sie entnehmen, daft der CPC 6128 128 K RAM und 48 K 
ROM besitzt. Wahrend das RAM (Random Access Memory) eine 
Speichereinheit ist, die sowohl gelesen als auch beschrieben wer- 
den kann, kann im ROM (Read Only Memory) nur gelesen wer- 
den. 

Der RAM-Speicher wird in der Regel zur Abspeicherung von 
BASIC-Programmen und Variablen genutzt. Dieser Bereich geht 
von der Adresse 368 (&170) bis 43903 (&AB7F). Er ist somit 
43536 Bytes groft. Mit der Funktion HIMEM konnen Sie sich die 
hochste von BASIC belegte Adresse ausgeben lassen. Wenn Sie 

PRINT HIMEM 

in den Rechner eingeben, erhalten Sie als Ausgabe den Wert 
43903. Diese Zahl repr&sentiert den Standardwert. Mit dem Be- 
fehl 


MEMORY (Adresse) 

konnen Sie den fur BASIC zur Verfiigung stehenden Speicher- 
bereich herabsetzen. Dies ist allerdings nur dann wichtig, wenn 
Sie zusatzlichen Speicherplatz fur Ihre Maschinenprogramme 
bendtigen. 

Die zusatzlichen 64 K RAM des CPC 6128 konnen Sie von 
BASIC aus nur dann nutzen, wenn Sie das "BANKMAN"-Pro- 
gramm, das sich auf der ersten Seite des Dienstprogrammpakets 
befindet, starten. In Kapitel 6.11, 6.12 und 8.3 wird die Nutzung 
des Zusatz-RAMs ausfiihrlich eriautert. 

Das ROM besteht aus dem Betriebssystem (Adressbereich 0 bis 
16383), dem BASIC-Interpreter (Adressbereich 49152 bis 65535) 
und dem Disketten-ROM (Adressbereich ebenfalls von 49152 bis 
65535). 
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Sie werden sich jetzt sicherlich fragen, wie die Doppelbelegung 
von Speicherplatz zustande kommt. Es ergibt sich, sieht man von 
den 64 K Zusatz-RAM ab, eine Speicherkapazitat von 112 K 
(64 K RAM und 48 K ROM), aber der 8-Bit-Prozessor kann ja 
nur 65536 (64 K) Speicherzellen adressieren. Nun, man hat sich 
das folgendermaBen vorzustellen: Und zwar kann der Prozessor 
durch eine Art "Schalter" auswahlen, ob er das Disketten-ROM 
Oder das BASIC-ROM zuschalten soil (oberer Adressbereich) 
bzw. ob das Firmware-ROM (Betriebssystem) oder das RAM 
(unterer Adressbereich) gebraucht wird. Dieses Prinzip wird 
auch angewandt, wenn nach dem Ablauf des "BANKMAN"-Pro- 
gramms die zweiten 64 K RAM genutzt werden kdnnen. Dann 
wird allerdings nicht zwischen RAM und ROM, sondern 
zwischen RAM und RAM hin- und hergeschaltet. 

Die Speicherbelegung der ersten 64 K soil auf der nachsten Seite 
noch einmal graphisch aufgezeigt werden: 



Betriebs- 

system 








Hardware und Software - BASIC und der CPC 


69 


4.7 Die Ablage einer BASIC-Zeile im Speicher 

Wenn Sie eine BASIC-Zeile in den Speicher schreiben, wird 
automatisch das RAM, beginnend mit der Speicherzelle 368 bzw. 
&170, ausgewahlt. Wie nun die Ablage einer BASIC-Zeile auf- 
gebaut ist, soil in diesem Kapitel geklart werden. 

Betrachten wir das folgende zweizeilige Programm: 


1 a=5 

2 PRINT a 


Anhand dieses kleinen Programms soli Ihnen nun die Ablage von 
BASIC im Speicher dargelegt werden. Dazu setzen Sie Ihren 
Computer am besten mit CONTROL, SHIFT und ESC zuriick 
und geben dann die weiter unten folgenden POKE-Befehle ein. 
Wir poken das Programm also direkt in den Speicher und haben 
dann in den entsprechenden Speicherzellen die gleichen Werte 
stehen, als wenn wir das Programm wie gewohnt eintippen wiir- 
den. Nachdem Sie alle POKE-Befehle eingegeben haben, geben 
Sie einfach LIST ein und driicken die RETURN-Taste. Sie er- 
halten dann das obige Programm auf dem Bildschirm. Fangen 
wir an: 

Zuerst wird die Lange der ersten Zeile in den Speicher geschrie- 
ben: 


POKE 368,12 
POKE 369,0 

Mit dem ersten POKE-Befehl wird das Lowbyte der Zeileniange 
und mit dem zweiten POKE-Befehl das Highbyte der Zeilen¬ 
iange in den Speicher geschrieben. Falls Ihnen die Begriffe 
Lowbyte und Highbyte nicht mehr so geiaufig sein sollten, 
schauen Sie sich noch einmal Kapitel 4.5 an. 


Die Zeileniange ergibt sich aus der Summe der fur die BASIC- 
Zeile zu besetzenden Speicherzellen. Diese Angabe benotigt Ihr 
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CPC, um die Anfangsadresse der nachsten BASIC-Zeile errech- 
nen zu konnen. 

Die nachste Information betrifft die Zeilennummer: 

POKE 370,1 
POKE 371,0 

VViederum wird zuerst das Lowbyte und dann das Highbyte ge- 
setzt. Auch bezuglich der Zeilennumer werden zwei Bytes ge- 
braucht, da die Zeilennummerierung nicht unbedingt nur bis 255 
geht. 

AnschlieBend wird angezeigt, daB die Variable "a" eine numeri- 
sche Variable ist: 

POKE 372,13 

H&tten wir eine Stringvariable gewahlt, so wiirde dort nicht der 
Wert 13, sondern der Wert 3 stehen. 

Der nachste einzugebende Wert bezieht sich auf die LSnge des 
Variablennamens. Die eigentliche Lange ist dabei um den Wert 4 
zu erhohen, so daB wir 1+4=5 erhalten: 

POKE 373,5 

Als nachstes wird der Wert 0 eingegeben. Diese Null dient nur 
der Trennung. Sie hat ansonsten keine weitere Bedeutung: 

POKE 374,0 

Jetzt kommen wir zum Variablennamen. Der entsprechende Wert 
berechnet sich wie folgt: ASCII-Wert des letzten Buchstabens + 
128, also 97 + 128 = 225. Bei liingeren Variablennamen werden 
die vorangestellten Buchstaben mit ihren ASCII-Werten ge- 
speichert. Also geben wir ein: 


POKE 375,225 
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Fur das nun folgende Gleichheitszeichen benutzen wir einen 
Tokenwert. Der Begriff Token und seine Bedeutung wird in 
Kapitel 4.8 erklart. An dieser Stelle sollten Sie somit einfach 
glauben, daB wir 

POKE 376,239 

eingeben mussen. 

Der nachste POKE-Befehl bezieht sich auf die VariablengroBe. 
Wir mussen dem Rechner mitteilen, daB der Wert 5 kleiner als 
256 ist und keine Dezimalstellen hat. Wir geben 

POKE 377,25 

ein. Ware der Variablenwert groBer als 255, so miiBten wir in 
diese Speicherzelle den Wert 26 schreiben und fur den Vari¬ 
ablenwert ein Low- und ein Highbyte benutzen. Fur unser Bei- 
spiel reicht hingegen ein Byte aus, so daB wir ganz einfach 

POKE 378,5 

schreiben kbnnen. 

Wenn wir jetzt mit 
POKE 379,0 

eine weitere Trennungsnull eingegeben haben, konnen wir zur 
zweiten BASIC-Zeile kommen. 

Zunachst mussen wir wieder vier Adressen mit Werten zur 
Zeileniange und zur Zeilennummer belegen: 

POKE 380,7 
POKE 381,0 
POKE 382,2 
POKE 383,0 
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AnschlieBend kommen wir direkt zum PRINT-Befehl. Der ent- 
sprechende Wert ist, wie der obige Wert fur das Gleichheits- 
zeichen, ein Token, der im nachsten Kapitel erlautert wird. Wir 
geben 


POKE 384,191 

ein und miissen nun nur noch die ASCII-Werte fur eine Leer- 
stelle und fur "a" in den Speicher schreiben: 

POKE 385,32 
POKE 386,97 

Jetzt befinden sich die beiden BASIC-Zeilen im Speicher, und 
Sie kdnnen sich das Programm mit LIST ansehen. 

So wie die zweite Programmzeile ist im Prinzip jede BASIC- 
Zeile aufgebaut. Nur wenn es darum geht, Variablen zu defi- 
nieren, wird es etwas komplizierter, wie Sie bei den POKE-Be- 
fehlen zur ersten Programmzeile gesehen haben. Aber auch in 
diesem Falle wird prinzipiell immer so, wie es oben beschrieben 
wurde, vorgegangen. Und wenn es doch einmal Probleme geben 
sollte, so bedenken Sie, daB Sie mit PEEK den Inhalt jeder 
Speicherzelle lesen konnen. Sie kbnnen also ein Programm in der 
gewohnten Weise eingeben und dann im Speicher "nachschauen", 
welche Werte die einzelnen Adressen haben. Nur die Erklar- 
ungen miissen Sie dann selber finden. 


4.8 Die Tokens 

Der Token (heiBt auf deutsch soviel wie Zeichen) ist ein Wert, 
der einem BASIC-Befehl Oder einem logischen Verkniipfung- 
zeichen zugeordnet ist. Wahrend normalerweise fur den Befehl 
PRINT fiinf Bytes gebraucht wiirden, da der Name des Befehls 
aus fiinf Buchstaben besteht, benotigt der Token von PRINT nur 
ein Byte. Die Tokens sind also in erster Linie entwickelt wor- 
den, um Speicherplatz zu sparen. 
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Vielleicht werden Sie fragen, warum wir im letzten Kapitel fur 
das Gleichheitszeichen nicht den zugehorigen ASCII-Wert ge- 
nommen haben, sondern einen Token. Der Grund hierfiir liegt 
darin, daB der Rechner so direkt weiB, daB das Gleichheits¬ 
zeichen nicht zum Variablennamen gehort. Ahnlich verhalt es 
sich mit den Tokens fur die BASIC-Befehle. Mit Hilfe der 
Tokens kann Ihr CPC eben Befehle besser von Variablen unter- 
scheiden. 

Um Ihnen die Mdglichkeit zu geben, mit den Tokens zu arbei- 
ten, finden Sie in diesem Kapitel eine Aufstellung aller Tokens, 
die ein Byte lang sind. Natilrlich konnen Sie aber auch mit dem 
folgenden Programm Tokenwerte testen: 


1 REM 

10 INPUT t 
20 POKE 372,t 
30 LIST 1 


Wenn Sie fur t zum Beispiel den Tokenwert 191 eingeben, so er- 
halten Sie 

1 PRINT 

auf dem Bildschirm, da die vorher durch die REM-Anweisung 
belegte Speicherstelle 372 mit POKE 372,191 iiberschrieben 
wurde. 

Eine interessante Moglichkeit, die Tokens fur den Kopierschutz 
zu verwenden, finden Sie ubrigens in Kapitel 5.5.5. Dort wird 
unter anderem mit den nicht benutzten Tokenwerten 226, 232 
und 233 gearbeitet. 
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Aber kommen wir zu unserer Token-Aufstelhmg: 


Befehl 

Wert 

Befehl 

Wert 

AFTER 

128 

AUTO 

129 

BORDER 

130 

CALL 

131 

CAT 

132 

CHAIN 

133 

CLEAR 

134 

CLG 

135 

CLOSE IN 

136 

CLOSEOUT 

137 

CLS 

138 

CONT 

139 

DATA 

140 

DEF 

141 

DEFINT 

142 

DEFREAL 

143 

DEFSTR 

144 

DEG 

145 

DELETE 

146 

DIM 

147 

DRAW 

148 

DRAWR 

149 

EDIT 

150 

ELSE 

151 

END 

152 

ENT 

153 

ENV 

154 

ERASE 

155 

ERROR 

156 

EVERY 

157 

FOR 

158 

GOSUB 

159 

GOTO 

160 

IF 

161 

INK 

162 

INPUT 

163 

KEY 

164 

LET 

165 

LINE 

166 

LIST 

167 

LOAD 

168 

LOCATE 

169 

MEMORY 

170 

MERGE 

171 

MID 

172 

MODE 

173 

MOVE 

174 

MOVER 

175 

NEXT 

176 

NEW 

177 

ON 

178 

ON BREAK 

179 

ON ERROR GOTO 

180 

ON SQ 

181 

OPEN IN 

182 

OPENOUT 

183 

ORIGIN 

184 

OUT 

185 

PAPER 

186 

PEN 

187 

PLOT 

188 

PLOTR 

189 

POKE 

190 

PRINT 

191 

CHR$(39) 

192 

RAD 

193 

RANDOMIZE 

194 

READ 

195 

RELEASE 

196 

REM 

197 
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RENUM 

198 

RESTORE 

199 

RESUME 

200 

RETURN 

201 

RUN 

202 

SAVE 

203 

SOUND 

204 

SPEED 

205 

STOP 

206 

SYMBOL 

207 

TAG 

208 

TAGOFF 

209 

TROFF 

210 

TRON 

211 

WAIT 

212 

WEND 

213 

WHILE 

214 

WIDTH 

215 

WINDOW 

216 

WRITE 

217 

ZONE 

218 

DI 

219 

El 

220 

FILL 

221 

GRAPHICS 

222 

MASK 

223 

FRAME 

224 

CURSOR 

225 

ERL 

227 

FN 

228 

SPC 

229 

STEP 

230 

SWAP 

231 

TAB 

234 

THEN 

235 

TO 

236 

USING 

237 

> 

238 

= 

239 

>= 

240 

< 

241 

<> 

242 

<= 

243 

+ 

244 

- 

245 

* 

246 

/ 

247 

A 

248 

CHR$(92) 

249 

AND 

250 

MOD 

251 

OR 

252 

XOR 

253 

NOT 

254 

ABS 

255 
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5. BASIC fur Fortgeschrittene 


5.1 Vorbemerkung 

Nachdem Sie in Kapitel 3 die Grundelemente der Program- 
miersprache BASIC und in Kapitel 4 etwas iiber die "interne" 
Datenverarbeitung kennengelernt haben, werden Sie in diesem 
Kapitel lernen, wie Sie die Moglichkeiten des Schneider-BASIC 
voll ausschdpfen konnen. Zwar lassen sich mit den in Kapitel 3 
vorgestellten Sprachelementen durchaus leistungsfahige Pro¬ 
gramme schreiben, jedoch kann man alles schoner und eleganter 
gestalten, wenn man zus&tzliche Befehle benutzt. 

Auch in diesem Kapitel gilt, daB grundsatzliche Erkl&rungen, so 
wie sie im Bedienungshandbuch stehen, moglichst nicht wieder- 
holt werden sollen. Vielmehr wird hier versucht, ausgehend von 
den vermeintlichen Kenntnissen eines "eingestiegenen Ein- 
steigers" Zusammenhange aufzuzeigen und vor alien Dingen 
Anwendungsmoglichkeiten darzulegen. 

Falls Sie aufgrund der knappen Darstellung in Kapitel 4 grund¬ 
satzliche Dinge noch nicht verstanden haben sollten, so kdnnen 
Sie trotzdem dieses und auch die folgenden Kapitel lesen, da in 
den Beispielen und Anwendungsprogrammen immer wieder die 
elementaren BASIC-Befehle benutzt werden. 


5.2 Stringbearbeitung 


5.2.1 Leistungsfahige Befehle zur Stringbearbeitung 

In Kapitel 3.2 haben wir erfahren, daB es nicht nur numerische, 
sondern auch Stringvariablen gibt. Eine Stringvariable (oder kurz 
ein String) ist eine Zeichenkette, die bis zu 255 beliebige Zei- 
chen des in Ihrem Bedienungshandbuch aufgefiihrten Zeichen- 
satzes enthalten kann. Mit diesen Strings konnen Sie nicht wie 
mit numerischen Variablen rechnen. Nur der arithmetische 
Operator "+" und die Vergleichsoperatoren ">=" und 
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"<=" sind erlaubt. In Kapitel 5.2.2 werden Sie den Umgang mit 
den Vergleichsoperatoren anhand eines Beispiels kennenlernen. 
Hier wollen wir uns zunachst mit dem "+"-Zeichen beschaftigen, 
bevor wir zu den eigentlichen Funktionen der Stringbearbeitung 
kommen. 

Mit Hilfe des Pluszeichens konnen Strings aneinandergehiingt 
werden. Das folgende kleine Programm soil Ihnen das verdeut- 
lichen: 


10 a$="Sehr geehrter Herr" 
20 b$=" Meier" 

30 c$=a$+b$ 

40 PRINT c$ 

50 END 


Nach ihrer Belegung in Zeile 10 und 20 werden die beiden 
Stringvariablen a$ und b$ in Zeile 30 verkettet und das Ergebnis 
wird ausgegeben. Zu beachten ist, daB in Zeile 20 eine Leer- 
stelle eingefugt wurde, um bei der Ausgabe 


Sehr geehrter Herr Meier 

und nicht 

Sehr geehrter HerrMeier 

zu erhalten. 

Insbesondere dann, wenn Sie einen Drucker zur Hand haben, 
konnen Sie auf diese Art und Weise individuelle Geschafts- Oder 
Werbebriefe schreiben. Variable Briefelemente wie das Datum, 
die Anschrift, die Anrede usw. geben Sie iiber INPUT-Sta- 
tements ein, und den Rest des Briefes verankern Sie fest im 
Programm. AnschlieBend lassen Sie sich den mit dem Pluszei- 
chen zusammengesetzten Text einfach iiber einen angeschlos- 
senen Drucker ausgeben. Sie kflnnen sich denken, daB auf diese 
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Art geschriebene Briefe nicht nur gut aussehen, sondern vor al¬ 
ien Dingen sehr schnell erstellt sind. 

Aber kommen wir zu den eigentlichen Stringbearbeitungsfunk- 
tionen. In Schneider-BASIC sind diese Funktionen so komforta- 
bel, daC Sie fast jede Stringmanipulation mit ihnen durchfuhren 
konnen. Da in diesem Kapitel leider nicht alle Anwendungs- 
moglichkeiten dieser Funktionen dargestellt werden konnen, sei 
an dieser Stelle auch auf die Programme der noch folgenden 
Kapitel hingewiesen. 

Fangen wir mit der Lange eines Strings an. Geben Sie einmal 
folgendes im Direktmodus ein: 

a$=" 3w-hallooooooooooooooooooooooooooo" 

PRINT LEN(a$) 

Sie konnen naturlich auch nachzahlen, um zu erfahren, wie viele 
Stellen der String beansprucht. Mit der Funktion LEN geht es 
aber viel schneller. Dabei werden selbstverstandlich alle Zeichen 
beriicksichtigt, also auch Leerzeichen. 

Stellen Sie sich einmal vor, Sie wollten zum Zeichnen einer 
mathematischen Funktion die x-Achse mit dem groGten x-Wert 
in der rechten unteren Bildschirmecke beschriften (siehe dazu 
Kapitel 6.8). Je nach der GroGe dieses Wertes wiirden Sie dann 
zu unterschiedlichen Positionierungen (mit LOCATE) kommen. 
Naturlich kbnnten Sie mit vielen IF ... THEN-Anweisungen die 
GrdBe dieses Wertes bestimmen, jedoch ist der Einsatz der 
Funktion LEN in diesem Fall sicherlich gunstiger und eleganter. 
Im 80-Zeichen-Modus kdnnte der LOCATE-Befehl dann so 
aussehen: 


LOCATE 80-LEN(gro(5te x-Wert),y-Koordinate 

Der "groBte x-Wert" muB dabei naturlich eine Stringvariable 
sein. 

Um die Lange eines numerischen Ausdrucks zu bestimmen, 
miissen Sie diesen erst in einen String umwandeln. Dies ge- 
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schieht mit der Funktion STR$. Auch eine "Riickverwandlung" 
ist moglich. Dazu dient der VAL-Befehl, mit dem Sie Strings in 
eine Zahl umwandeln kdnnen. Das Ergebnis ist allerdings Null, 
wenn das erste Zeichen des Strings keine Zahl ist. Treten an den 
folgenden Stellen im String Buchstaben Oder andere Zeichen auf, 
die nicht in eine Zahl zu ubersetzen sind, so wird nur der erste 
Teil des Strings beriicksichtigt. 

Wenn Sie von einem beliebigen String Teilstrings bilden wollen, 
so stehen Ihnen die Funktionen LEFTS, RIGHTS und MID$ zur 
Verfugung. 

LEFTS entnimmt einem String eine Reihe aufeinanderfolgender 
Symbole von links beginnend. RIGHTS entspricht der Funktion 
LEFTS mit dem Unterschied, daB die Symbole von rechts be¬ 
ginnend abgespalten werden. Die Anzahl dieser Symbole ist das 
zweite Argument der Funktionen LEFTS und RIGHTS (das erste 
Argument ist der zu behandelnde String). Das folgende Pro- 
gramm verdeutlicht Ihnen den Umgang mit diesen Funktionen: 


10 a$="Fritz Mueller" 
20 PRINT LEFT$(a$,5) 
30 PRINT RIGHT$(a$,7 


Als Ergebnis erhalten Sie: 

Fritz 

Mueller 

In Kapitel 5.2.3 werden Sie sehen, wie man mit diesen beiden 
Funktionen eine Laufschrift programmieren kann. 

Leistungsf&higer als LEFTS und RIGHTS ist die Funktion 
MID$. Mit ihr lassen sich LEFTS und RIGHTS ersetzen. Sie hat 
drei Argumente: 
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1) Name des zu behandelnden Strings 

2) Nummer des Zeichens, bei dem die Abspaltung begin- 
nen soli 

3) Anzahl der abzuspaltenden Zeichen 

Mit MID$ haben Sie also die Moglichkeit, aus einem String ab 
einer beliebigen Position eine beliebige Anzahl von Symbolen 
auszulesen. Erweitern Sie das letzte kleine Programmbeispiel mit 

40 PRINT MID$(a$,7,3) 

so erhalten Sie als zus&tzliches Ergebnis 

Mue 

Sie konnen aber auch ganz bestimmte Zeichen eines Strings mit 
MID$ abandern. Geben Sie zum Beispiel 

MID$(a$,3,1)="a" 

ein, so wird aus "Fritz" "Fratz", d. h., die dritte Stelle des Strings 
ist mit einem neuen Zeichen, namlich "a", belegt worden. 

Ein weiterer sehr leistungsfahiger Befehl, der uns noch bei der 
Dateiverwaltung in Kapitel 9 begegnen wird, ist die Funktion 
INSTR, mit der Sie einen String nach einem beliebigen Teil- 
string durchsuchen kbnnen. INSTR hat ebenfalls drei Argu¬ 
ments 

1) Position, ab der der String durchsucht werden soil 

2) durchsuchter String 

3) gesuchter String 

Geben Sie beispielsweise im Direktmodus 

a$="Computerbuch" 

PRINT INSTR(a$,"ter") 

ein, so erhalten Sie als Ergebnis die Positionsnummer des ge- 
suchten Strings, namlich die Zahl 6. Eine Null wird ausgegeben. 
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wenn der gesuchte String nicht gefunden wird. Wie Sie sehen, 
kann auf die Angabe der Startposition verzichtet werden, wenn 
von der ersten Position an gesucht werden soli. Die Zeichen- 
folge, nach der gesucht wird, muB naturlich genau in dem String 
enthalten sein. Sie miissen also auch auf Klein- und GroBbuch- 
staben achten. 

Wenn Sie einen String komplett in GroBbuchstaben oder Klein- 
buchstaben umwandeln wollen, kbnnen Sie dies mit den 
Befehlen UPPERS und LOWERS tun. Ihre Wirkungsweise ist so 
eindeutig, daB sie hier nicht erlSutert werden muB. Im nSchsten 
Kapitel werden wir auch mit einem dieser Befehle arbeiten. 

Mit den beiden letzten hier zu behandelnden Befehlen lassen 
sich Strings erzeugen, die sich aus lauter gleichen Zeichen zu- 
sammensetzen. W&hrend dies bei SPACES immer das Leerzei- 
chen ist, kbnnen Sie bei STRINGS ein beliebiges Zeichen ange- 
ben. So kbnnen Sie zum Beispiel mit 

PRINT STRING$(20,) 

eine Linie ziehen. 

SPACES kann zu verschiedenen Zwecken genutzt werden. Zum 
Beispiel kQnnen Sie so bequem einen String mit Leerzeichen 
auffullen, wie es zum Beispiel in Kapitel 5.2.3 und in Kapitel 
8.3 geschieht. Mit SPACES kbnnen Sie aber auch eine Ausgabe 
positionieren (obwohl es da auch andere leistungsfahige Befehle 
wie zum Beispiel TAB oder SPC gibt): 

PRINT SPACE$(5);"dies ist das Ende des Kapitels" 


5.2.2 Sortieren 

In diesem Kapitel geht es darum, eine beliebige Anzahl unter- 
schiedlicher Strings alphabetisch zu sortieren. Ein derartiger 
Sortiervorgang kann fur die verschiedensten Anwendungsberei- 
che wichtig sein. Denken Sie zum Beispiel an eine Mitglieder- 
kartei (oder besser -datei) oder gar an die Namen in Telefon- 
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buchern. Aber auch in den verschiedensten Programmen kann 
die hier vorgestellte Sortierroutine sinnvoll eingesetzt werden, 
um zum Beispiel Ergebnisse alphabetisch geordnet auszugeben. 

Wenn Sie Zahlen oder numerische Variablen der GroBe nach 
ordnen, arbeiten Sie mit den Vergleichsoperatoren "<" und 
Diese Vergleichsoperatoren konnen Sie auch benutzen, um 
Strings zu sortieren. Immer dann, wenn ein Buchstabe einem 
anderen Buchstaben im Alphabet vorangeht, ist dieser Buchstabe 
"kleiner". Bei Wortern mit mehreren Buchstaben wird automa- 
tisch der nachste Buchstabe zum Vergleich herangezogen, wenn 
zwei Buchstaben gleich sind. Der Computer vergleicht also ge- 
nauso, wie Sie es aus Telefonbuchern oder Lexika kennen. 

Eine Besonderheit ist allerdings zu beachten. Aufgrund einer 
Rechnervoreinstellung werden GroBbuchstaben immer als die 
kleineren betrachtet. So kommt es zum Beispiel, daB die Be- 
dingung "C" < "c" immer erfiillt ist. Wenn Sie dies verhindern 
wollen, miissen Sie die zu sortierenden Strings mit UPPERS oder 
LOWERS alle in GroB- oder Kleinbuchstaben umwandeln und 
diese umgewandelten Strings einer Vergleichsoperation unter- 
ziehen. 

In dem vorliegenden Programm werden die Strings mit Hilfe des 
DATA-Statements bereitgestellt. Wollen Sie das Programm fur 
andere Ausgangsdaten (Strings) benutzen, so miissen Sie ent- 
sprechende DATA-Statements als Programmzeilen eintippen. 
Auch fur die Anzahl der zu sortierenden Strings (Variable "n") 
ist dann ein anderer Wert einzugeben. In dem nun folgenden 
Programm sind lediglich Beispieldaten aufgefiihrt, mit n=7. 


10 REM Alphabetisches Sortieren 

20 PRINT"Wie viele Woerter werden im Programm- 11 

30 INPUT"ablauf eingelesen ";n 

40 IF n=0 THEN 330 

50 CLS:DIM w$(n),wl$(n) 

60 REM In diesem Programm ist n=7 

70 DATA der,richtige,Computer,fuer,Sie,der, Schneider CPC 6128 
200 FOR i=1 TO n 
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210 READ w$(i) 

220 wl$(i)=LOUER$(w$(i)) 

230 NEXT i 

240 FOR i=1 TO n-1 

250 FOR j=i+1 TO n 

260 IF wl$(i)<=wl$(j) GOTO 290 

270 hi$=wl$(j):wl$(j)=wl$(i):wl$(i)=hi$ 

280 hi$=w$(j):w$(j)=w$(i):w$(i)=hi$ 

290 NEXT j 
300 PRINT w$(i) 

310 NEXT i 
320 PRINT w$(n) 

330 END 


Die folgenden Variablen werden im Programm belegt: 

hiS Hilfsvariable 

i Laufindex 

j Laufindex 

n Anzahl der Strings 

w$(i) die Wdrter bzw. Strings 

wl$(i) die Strings in Kleinbuchstaben 


Programmbeschreibung : 

10 Kommentar 

20-30 Eingabe der Stringanzahl 

40 Verzweigung zum Programmende, wenn keine 

Strings eingelesen werden sollen. 

50 Der Bildschirm wird geldscht, und es wird 

Speicherplatz fur alle Auspragungen der Variablen 

w$ und wl$ reserviert. 


60 


Kommentar 
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70 Bereitstellen der Daten (die hier nicht benutzten 

Programmzeilen 70 bis 190 sind fur weitere 
DATA-Anweisungen gedacht) 

200-230 Die Daten werden eingelesen, und in Zeile 220 
wird ein eingelesener String in Kleinbuchstaben 
umgewandelt (Belegung der Variablen wl$(i)). 

240-320 Die Strings werden alphabetisch sortiert, und das 
Ergebnis wird ausgegeben. 

Sortieren heifit hier, daB je zwei Strings mitein- 
ander verglichen werden. Zum Vergleich in Zeile 
260 werden dabei die in Kleinbuchstaben umge- 
wandelten Strings wl$(i) benutzt. ZunSchst wird 
der zuerst eingelesene String wl$(i), fur i=l, mit 
alien iibrigen Strings wl$(j), fur j=2 ... n, ver¬ 
glichen. Folgt dabei wl$(l) im Alphabet einem 
anderen String wl$(j), so werden die beiden ver- 
glichenen Strings in Zeile 270-280 vertauscht 
(vertauscht werden also nicht nur in Zeile 270 
wl$(i) und wl$(j), sondern auch w$(i) und w$(j) in 
Zeile 280). Nach dem Schleifendurchlauf Satz 250 
bis 290 steht dann an erster Stelle (wl$(l), w$(l)) 
der String, der im Alphabet vorne steht. Das Er¬ 
gebnis wird dann in Zeile 300 direkt ausgegeben. 

Im folgenden wird dann die Laufvariable i jeweils 
urn 1 erhoht, d. h., daB zuerst der an zweiter Stelle 
stehende String wl$(2) mit alien iibrigen Strings 
(nur nicht mit wl$(l)) verglichen und gegebenen- 
falls vertauscht wird, anschlieBend der an drifter 
Stelle stehende String usw. 

Insgesamt werden somit alle nur moglichen Ver- 
gleiche angestellt. 

Da die Schleife Satz 240 bis 310 den Wert n-1 als 
Endwert hat, muB in Zeile 320 noch der letzte, im 
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Alphabet hinten stehende String ausgegeben wer- 
den. 

330 Programmende 

Wenn Sie die Logik dieses Sortierverfahrens verstanden haben, 
dann schreiben Sie das Programm doch einfach fur die Be- 
nutzung von numerischen Werten um. Auf die Variable wl$ so- 
wie auf die Satze 220 und 270 kbnnen Sie dann verzichten, und 
aus der Variablen w$ wird die Variable w und aus hi$ wird hi. 
Der Vergleich in Zeile 260 bezieht sich dann auf die Variable 
w(i) und w(j). Sie miissen dann nur noch die entsprechenden 
Daten zur Verfiigung stellen. 

Wenn Sie es ganz professionell machen wollen, kbnnen Sie das 
Programm auch derart verallgemeinern, daB Sie zu Beginn des 
Programms eine Abfrage beziiglich der Ausgangsdaten einfugen, 
um dann die entsprechenden Variablen mit DEFREAL Oder 
DEFSTR als reelle oder als Stringvariablen zu kennzeichnen. 
Zudem konnen Sie die Daten dann noch extern auf einer Dis¬ 
kette speichern und auch von dort wieder einlesen. In Kapitel 8 
werden Sie erfahren, wie man das externe Speichermedium Dis¬ 
kette interaktiv im Programmablauf benutzen kann. 


5.2.3 Laufschrift 

Sicherlich haben Sie schon einmal in dem einen oder anderen 
Animations- oder Werbeprogramm gesehen, wie ein Schriftzug 
uber den Bildschirm lauft. Mit den in Kapitel 5.2.1 vorgestellten 
Stringbearbeitungsfunktionen ist die Programmierung einer sol- 
chen Laufschrift recht unproblematisch. 

In dem folgenden Programm konnen Sie einen String bzw. einen 
Text mit maximal 40 Zeichen eingeben, der dann von links nach 
rechts uber den Bildschirm lauft. Zuerst erscheint also der letzte 
Buchstabe des Textes links auf dem Bildschirm und mit dem 
ersten Buchstaben verlSBt der Text rechts den Bildschirm. Aber 
direkt zum Programm: 
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10 REM Laufschrift 

20 INPUT"Geben Sie ein Wort oder einen Text ein ";a$ 

30 IF LEN(a$)>40 THEN PRINT:PRINT"String zu lang, maximal 40 
Zeichen":PR I NT:GOTO 20 

40 IF LEN(a$)<40 THEN a$=SPACE$((40-LEN(a$))/2)+a$+SPACE$<(40- 
LEN(a$))/2) 

50 MODE 1 
60 FOR i=1 TO 40 
70 LOCATE 1,1 
80 PRINT RIGHT$(a$,i) 

90 NEXT i 

100 FOR i=40 TO 1 STEP -1 
110 LOCATE 41-1,1 
120 PRINT LEFT$(aS,i) 

130 NEXT i 
140 END 


Nach einem Kommentar in Zeile 10 wird in Zeile 20 ein Text 
eingegeben. Hat dieser Text mehr als 40 Zeichen, wird ein 
Kommentar ausgegeben und zur erneuten Eingabe verzweigt 
(Zeile 30). 

In Zeile 40 wird der eingegebene Text mit Leerzeichen aufge- 
fiillt, wenn der Text weniger als 40 Zeichen hat, um im 
weiteren Programmverlauf mit einer auf 40 Zeichen festgelegten 
Lange rechnen zu kdnnen. Dabei wird die Haifte der bendtigten 
Leerzeichen an den Text angehangt und die andere Haifte dem 
Text vorangestellt. Naturlich ist diese Aufteilung der bendtigten 
Leerzeichen nicht unbedingt notwendig, da so nur verhindert 
wird, daB bei einem kurzen Text zuviel Zeit vergeht, ohne daB 
man (aufgrund der Leerzeichen) etwas auf dem Bildschirm sieht. 

AnschlieBend wird in Zeile 50 durch Umschaltung auf den 40- 
Zeichen-Modus der Bildschirm geldscht. Wenn Sie in einem 
anderen Modus arbeiten wollen, miissen Sie iiberall, wo im Pro- 
gramm eine 4 steht, eine 2 bzw. eine 8 schreiben. 
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In der Programmschleife Satz 60 bis 90 wird immer von der lin- 
ken oberen Ecke des Bildschirms ausgehend (siehe Zeile 70) bei 
jedem Schleifendurchlauf ein Zeichen mehr (von rechts begin- 
nend) auf den Bildschirm gebracht, bis der gesamte Text auf 
dem Bildschirm zu sehen ist. 

In der darauffolgenden Schleife (Zeile 100-130) wird quasi um- 
gekehrt verfahren. Der Text wird nach und nach (Zeichen fur 
Zeichen) gekurzt, indem am rechten Textende immer mehr 
Zeichen abgespalten werden. Hier ist allerdings auch die Positio- 
nierung mit LOCATE jeweils um eine Stelle nach rechts zu 
verlegen (siehe Zeile 110). Das erste Argument des LOCATE - 
Befehls stellt dabei gewissermaBen das Gegenstuck zur 
Laufvariablen dar. Je kleiner i wird, desto groBer wird der Aus- 
druck 41-i, d. h., je weiter wandert die Positionierung in hori- 
zontaler Richtung nach rechts. 

In diesem Programm wird die oberste Zeile fur die Ausgabe der 
Laufschrift benutzt. Naturlich konnen Sie auch andere Zeilen 
wahlen, indem Sie die Angabe zur y-Koordinate in den 
LOCATE-Befehlen andern. Wollen Sie zum Beispiel, daB der 
eingegebene Text nacheinander in jeder Bildschirmzeile ausge- 
geben wird, so konnen Sie das Programm wie folgt erweitern 
bzw. verandern: 


55 FOR j = 1 TO 24 
70 LOCATE 1,j 
110 LOCATE 41-i,j 
135 NEXT j 


Eine weitere Variation dieses Programms konnte darin bestehen, 
in jeder Zeile einen anderen Text auszugeben. Wenn Sie dies 
dann noch farblich gestalten (siehe Kapitel 6.5), haben Sie ein 
recht schones Werbeprogramm auf die Beine gestellt. 

Vielleicht wollen Sie aber auch Ihren Text nicht auf 40 Zeichen 
pro Textzeile beschranken. Damit ein langerer Text "lesbar" 
bleibt, miiBten Sie diesen nicht von links nach rechts, sondern 
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von rechts nach links iiber den Bildschirm laufen lassen (also mit 
dem ersten Buchstaben beginnend). Probieren Sie es doch ein- 
fach einmal aus. 

Ubrigens, das Programm laBt sich auch vereinfachen bzw. ver- 
bessern. In Kapitel 5.2.1 haben wir namlich gesagt, da/3 man mit 
der Funktion MID$ die Funktionen LEFTS und RIGHTS erset- 
zen kann. Vielleicht gelingt es Ihnen, aus den beiden Schleifen 
Satz 60 bis 90 und Satz 100 bis 130 eine Schleife mit variablen 
Schleifenparametern (Anfangswert, Endwert und Schrittweite) zu 
machen. Sie konnten beispielsweise diese Schleife dann als 
Unterprogramm programmieren und vom Hauptprogramm aus 
dieses Unterprogramm mit unterschiedlichen Parametern aufru- 
fen. 

Sie sehen also auch hier, daB es viele Moglichkeiten gibt, ein 
Programm zu verSndern und vor alien Dingen zu verbessern. 
Und wenn Ihnen diese Vorschlage nicht ausreichen, dann 
schauen Sie doch einfach ins Kapitel 6.6. Dort finden Sie ein 
Programm, mit dem Sie einen Text langsamer, namlich Pixel fur 
Pixel, uber den Bildschirm laufen lassen konnen. 


5.3 Definition von Tasten und Zeichen 


5.3.1 Die Tastenbelegung 

In Kapitel 3 haben wir gesehen, wie man mit dem Befehl 
INKEY bestimmten Tasten Funktionen zuordnen kann. Die 
Uberlegung lautete dort: Wenn diese Oder jene Taste gedriickt 
wird, dann soli (im Programmablauf) dieses Oder jenes gesche- 
hen. In diesem Zusammenhang sind auch die fur die Tastatur- 
belegung zustdndigen Befehle KEY und KEY DEF zu sehen. 

Wollen Sie einer Taste einen beliebigen String zuordnen, so 
miissen Sie den Befehl KEY benutzen. Dieser String kann einen 
Befehl, eine Befehlsfolge Oder auch eine Programmfunktion be- 
inhalten. 
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Mit dem Befehl KEY DEF konnen Sie hingegen eine Taste mit 
einem anderen Zeichen oder mit einer Tastaturfunktion belegen. 
Welche Zeichen und Funktionen da zur Verfiigung stehen, kdn- 
nen Sie der ASCII-Code-Tabelle bzw. dem Schneider-Zeichen- 
satz (siehe Benutzerhandbuch) entnehmen. 

Fur die Anwendung des Befehls KEY mussen Sie wissen, was 
eine Erweiterungszeichennummer ist. KEY hat namlich die 
folgenden Parameter: 


KEY Erweiterungszeichennummer,String 

Der String wird also einer mit der Erweiterungszeichennummer 
bezeichneten Taste zugeordnet. 

Insgesamt gibt es 32 Erweiterungszeichen (0-31), die die 
Tastenwerte 128 bis 159 belegen. Diese Tastenwerte sind nicht 
identisch mit den rechts oben neben der Tastatur aufgefiihrten 
Tastennummern. Die Tastenwerte sind jedoch in Kapitel 7 Ihres 
Bedienungshandbuches aufgefiihrt. Die Werte 128 bis 140 ent- 
sprechen den Zahlen 0 bis 9 und dem Punkt (rechter Zahlen- 
block) sowie der ENTER-Taste (mit Oder ohne SHIFT oder 
CONTROL). Diesen Tasten kbnnen Sie nun direkt einen String 
zuordnen. Wenn Sie zum Beispiel 

KEY 137,"LIST" 

eingeben, erscheint immer "LIST" auf dem Bildschirm, wenn Sie 
die Taste "9" (rechts oben) driicken. Den gleichen Effekt erzielen 
Sie, wenn Sie 

KEY 9,"LIST" 

eingeben. Sie konnen also als Argument entweder die Zahlen 0 
bis 31 oder die Werte 128 bis 159 w&hlen. 

Die Erweiterungszeichen 13 bis 31 (Tastenwerte 141 bis 159) 
sind standardmaBig Leerstrings und keiner Taste zugeordnet. 
Wenn Sie eines dieser Zeichen mit einem String belegen (KEY- 
Befehl), mussen Sie dieses Zeichen mit der KEY-DEF-Anwei- 





BASIC fur Fortseschrittene 


91 


sung einer Taste zuordnen. Zum Beispiel konnen Sie den 
Tastenwert 150 ebenfalls mit "LIST" belegen, um ihn dann bei- 
spielsweise der TAB-Taste zuzuordnen: 

KEY 150,"LIST" 

KEY DEF 68,1,150 

Der erste Parameter der KEY-DEF-Anweisung bezeichnet die 
Taste, der ein Zeichen zugeordnet werden soil. Er ist gleich der 
Tastennummer, so wie sie auf Ihrem CPC zu sehen sind. 

Der zweite Parameter bestimmt, ob die Wiederholungsfunktion 
der Taste an- Oder abgestellt werden soil (0=AUS,1=AN), ob 
also beim "Dauer-Driicken" die Ausgabe des Zeichens wiederholt 
wird oder nicht. Die Wiederholungsgeschwindigkeit konnen Sie 
iibrigens mit dem Befehl SPEED KEY andern. 

Der dritte Parameter enthalt nun den Wert, der ausgegeben wer¬ 
den soli, wenn die Taste gedriickt wird. Dies kann ein ASCII- 
Zeichen, ein Erweiterungszeichen oder aber eine Funktion sein. 
Bezuglich der Funktionen erinnern Sie sich bitte an die in 
Kapitel 4.3 erwahnten und in Ihrem Handbuch aufgefuhrten 
BASIC-Steuer-Codes. Mit 

KEY DEF Tastennummer, 0 oder 1,13 

konnen Sie zum Beispiel eine Taste mit der Funktion Carriage 
Return (Wagenriicklauf) belegen. Aber auch Tastaturfunktionen 
wie Cursor rauf mit SHIFT (um ein Programm zu editieren) 
kdnnen Sie definieren: 

KEY DEF Tastennummer, 0 oder 1,244 

In Kapitel 6 Ihres Handbuches finden Sie eine Aufstellung der 
entsprechenden Werte in hexadezimaler Form. In Kapitel 4.4 ha- 
ben Sie gesehen, wie man diese umrechnet. So ist zum Beispiel 
OD (hexadezimal) = 13 (dezimal) und F4 (hexadezimal) = 244 
(dezimal). 
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Mit KEY DEF kdnnen Sie einer Taste jedoch auch Werte zuord- 
nen, die ausgegeben werden sollen, wenn die Taste mit SHIFT 
Oder CONTROL gedriickt wird. Diese Werte stellen die wahl- 
weise anzugebenden Parameter 4 und 5 dar. 

Kommen wir zur praktischen Anwendung der Befehle KEY und 
KEY DEF. Einmal kdnnen Sie diese Befehle sehr schon in Text- 
verarbeitungsprogrammen einsetzen, um bestimmte Tasten mit 
haufig vorkommenden Wortern zu belegen*. Zum anderen konnen 
Sie aber auch Ihre Arbeit am Computer optimieren, wenn Sie 
wichtige Befehle nicht mehr eintippen miissen, sondern durch 
Tastendruck auf dem Bildschirm erhalten. Fur derartige Opera- 
tionen bieten sich die Zahlentasten in der oberen Reihe der Ta- 
statur am ehesten an, da Sie wahrscheinlich fur das Eintippen 
von Zahlen den rechten Zahlenblock benutzen. 

Im folgenden finden Sie ein Programm, mit dem Sie 19 Tasten 
mit beliebigen Strings belegen kdnnen. Die Zahl 19 kommt da- 
durch zustande, daft im Programmablauf nur die Erweiterungs- 
zeichennummern 141 bis 159 benutzt werden, da eine Belegung 
des rechten Zahlenblocks mit Strings haufig weniger sinnvoll 
ist. Nachdem Sie die von Ihnen zu bezeichnenden Tasten belegt 
haben, kdnnen Sie das Programm mit NEW ldschen und sich 
anderen Aufgaben, wie zum Beispiel der Programmierarbeit, 
widmen. 


10 REM Tastenbelegung fuer maximal 19 Tasten 
20 CIS 
30 i = i+1 

40 PRINT i".te Belegung:" 

50 LOCATE 1,5 

60 INPUT"Fuer welche Tastennummer ";tn 

70 PRINT:PR I NT:INPUT"Geben Sie einen String ein ";a$ 

80 LOCATE 1,12:INPUT" mit Carriage Return (j,n) ";x$ 

90 IF x$<>"j" AND x$<>"n" THEN 80 

100 j=140+i 

110 IF x$="j" THEN KEY j,a$+CHR$<13) ELSE KEY j,a$ 
120 KEY DEF tn,0,j 

130 LOCATE 1,20:INPUT"Weiter (j,n) »;x$ 
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140 IF x$<>"j" AND x$<>"n" THEN 130 
150 IF x$="n" THEN END 

160 IF x$="j" AND j <159 THEN 20 ELSE PRINT:PR I NT:PRINT"Sie koennen 
jetzt nur noch die Tasten":PRINT ,, mit den Werten 128-140 (siehe 
Benutzer- handbuch) belegen":END 


Variablenliste: 

a$ der einzugebende String 

i die "laufende" Belegung 

j die Erweiterungszeichennummer 

tn die Tastennummer 

x$ Antwortstring (j,n) 

Eine detaillierte Programmbeschreibung ist hier nicht notwendig, 
da die Benutzung der Befehle KEY und KEY DEF oben bereits 
ausfiihrlich eriautert worden ist. Neu ist allerdings die in Zeile 
110 geschaffene Moglichkeit, ein Carriage Return (CHR$(13)) 
an den eingegebenen String a$ anzuhangen. Dies ist dann inter- 
essant, wenn Sie fur a$ einen Befehl eingegeben haben. Der 
CHR$(13)-Code bewirkt namlich, daB beim Betatigen der ge- 
wahlten Taste der Befehl sofort ausgefiihrt wird. Die RETURN- 
oder ENTER-Taste muB dann nicht mehr gedruckt werden. So 
kdnnen Sie zum Beispiel mit 

KEY 141, "LIST"+CHR$(13) 

KEY DEF 68,0,141 

die TAB-Taste mit der Ausfiihrung des Befehls LIST belegen. 

Ansonsten bleiben Sie aufgefordert, das Programmlisting selber 
im einzelnen durchzugehen. Sicherlich haben Sie schon gesehen, 
daB die Variable i bei jedem "Durchlauf", also immer wenn es 
"weiter" gehen soil, erhdht wird und daB die Variable j unter 
Verwendung des Wertes fur i berechnet wird. 

Wenn Sie das Programm verstanden haben, konnen Sie es natiir- 
lich auch noch andern Oder erweitern. Zum Beispiel konnen Sie 
die Wiederholungsfunktion einschalten oder aber die SHIFT- 
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und CONTROL-Taste ins Spiel bringen. Sie miissen dann quasi 
nur weitere (j,n)-Abfragen programmieren. 


5.3.2 Selbstdefinierte Zeichen 

Mit Ihrem CPC konnen Sie nicht nur die Tastaturbelegung 
andern, sondern auch die Zeichen selber. Dazu mussen Sie wis- 
sen, dab jedes Zeichen aus Punkten zusammengesetzt wird. Ein 
Punkt wird dabei auch Pixel genannt (siehe Kapitel 6). Fur jedes 
Zeichen stehen nun 64 Pixel zur Verfugung, die Sie einzeln 
"setzen" (d. h. sichtbar machen konnen). Diese 64 Punkte sind in 
einer 8x8-Matrix angeordnet, die Sie sich am besten als ein 
Gitter mit 8 Reihen und 8 Spalten vorstellen. 

Fur die praktische Definitionsarbeit sollten Sie sich zunSchst 
einmal ein Blatt kariertes Papier nehmen und eine 8x8-Matrix 
einzeichnen. Danach entscheiden Sie, welche Punkte Sie setzen 
mdchten und welche nicht. Uberall dort, wo ein Punkt gesetzt 
werden soil, setzen Sie eine "1" in das KSstchen und ansonsten 
eine "0". So erhalten Sie 8 Reihen mit jeweils einer 8stelligen 
Binarzahl. Eine solche Reihe kann zum Beispiel folgendes Aus- 
sehen haben: 

11000011 

0 = Schreibflachenhintergrundfarbe 
1 = Schreibstiftfarbe 

Wie Sie an der Erkldrung zu den Ziffern 0 und 1 sehen, wird 
eine unter Umstanden geanderte Stift- Oder Hintergrundfarbe 
auch bei den selbstdefinierten Zeichen beriicksichtigt (siehe dazu 
Kapitel 7.5). 

Falls Sie noch Schwierigkeiten mit der 8x8-Punktmatrix und der 
Definition eigener Zeichen haben sollten, schauen Sie doch ein¬ 
mal ins Benutzerhandbuch. Dort sind in Kapitel 6 alle Zeichen 
Ihres CPC ebenfalls in einer 8x8-Matrix dargestellt. Nehmen Sie 
sich doch einmal ein Zeichen heraus und notieren Sie sich die 
acht Binarzahlen zu diesem Zeichen. 
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Zum Beispiel erhalten Sie fur die Zahl 1: 

00011000 
0 0 1 1 1 0 0 0 
0 0 0 1 1 0 0 0 
0 0 0 1 1 0 0 0 
0 0 0 1 1 0 0 0 
0 0 0 1 1 0 0 0 
0 1111110 
00000000 

Wenn Sie das Muster der gesetzten Punkte betrachten, erkennen 
Sie recht deutlich die Zahl 1. 

Nachdem Sie fur ein selbstdefiniertes Zeichen erst einmal acht 
Binarwerte ermittelt haben, ist der Rest ziemlich einfach. Fur 
Ihr Zeichen miissen Sie dann nur noch Platz reservieren und 
anschlieBend kbnnen Sie das Zeichen einer Taste zuordnen. Der 
Befehl 

SYMBOL AFTER X 

gibt mit dem Parameter x den ASCII-Wert des Zeichens an, ab 
dem die Anderung vorgenommen werden soil. Der Standardwert 
ist 240. Wahlen Sie fur x beispielsweise den Wert 32, so konnen 
Sie alle Zeichen ab dem ASCII-Wert 32 selbst definieren. Je 
kleiner der Wert fur x allerdings ist, desto mehr Speicherplatz 
wird benotigt. Da der Speicher des CPC jedoch ziemlich groB 
ist, sollten Sie auf jeden Fall einen kleinen Wert wahlen, damit 
Sie noch geniigend Platz haben, wenn Ihnen noch weitere Zei¬ 
chen einfallen, die Sie umgestalten wollen. Sie miissen namlich 
beachten, daB Sie den Befehl SYMBOL AFTER nicht ein zwei- 
tes Mai verwenden diirfen, da ansonsten die schon definierten 
Zeichen wieder geloscht werden. 

Die eigentliche Zuordnung ist nun wirklich kein Problem mehr. 
Sie brauchen dazu nur noch eine Zeichennummer, also die 
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Nummer, der das neue Zeichen zugeordnet werden soil (siehe 
Benutzerhandbuch). Mit 


SYMBOL x,Liste der (maximal) acht Reihen-Parameter 

kdnnen Sie dann das Zeichen mit der Nummer x neu definieren. 
Geben Sie zum Beispiel 

SYMBOL 97,3,3,3,3,3,3,3,3 

ein, so erhalten Sie einen senkrechten Strich, wenn Sie die Taste 
a (ohne SHIFT und CONTROL) driicken oder wenn Sie 

PRINT CHR$(97) 
eingeben. 

Wie Sie sehen, konnen die Parameter in dezimaler Form angege- 
ben werden. Sie konnen aber auch (falls Sie damit besser umge- 
hen kdnnen) Binarzahlen oder Hexadezimalzahlen verwenden. 
Diese Zahlen rniissen Sie nur mit kennzeichnen. Auf jeden 
Fall sehen Sie, wie wichtig die in Kapitel 4.4 vorgestellten Zah- 
lensysteme auch fur den BASIC-Programmierer sind. 

Sicher wollen Sie jetzt wissen, wozu denn nun selbstdefinierte 
Zeichen gebraucht werden. Drei Anwendungsbereiche lassen sich 
da unterscheiden: 

1) technisch-mathematische Sonderzeichen 

2) futuristische Zeichen fur Computerspiele 

3) deutsche Sonderzeichen fur die Textverarbeitung 

Da die dritte Anwendung am haufigsten gebraucht wird, finden 
Sie im folgenden ein Programm, das Ihnen die vielleicht noch 
muhsame Definitionsarbeit abnimmt. Die einzelnen Parameter 
sind dort in hexadezimaler Schreibweise angegeben, damit Sie 
den Umgang mit den Zahlensystemen nicht verlernen. 

Fur die Zeichennummern sind die ASCII-Codes gewahlt worden, 
die beim AnschluB eines Druckers die korrekte Wiedergabe der 
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deutschen Umlaute und des "B" gewahrleisten. Hier wird an 
einem praktischen Beispiel deutlich, wie die Dateniibertragung 
zu anderen Geraten durch den ASCII-Code gesichert wird (siehe 
Kapitel 4.3). 

Da die im Programmablauf belegten Tasten nicht der genormten 
Schreibmaschinentastatur entsprechen, bleiben Sie aufgefordert, 
dies mit Hilfe der KEY-DEF-Anweisung selber zu bewerkstelli- 
gen. Ansonsten erklart sich das Programm von selbst. Sie kon- 
nen es immer dann benutzen (bzw. einem Programm voranstel- 
len), wenn Sie deutsche Sonderzeichen benotigen. Ubrigens, das 
"B" befindet sich schon im CPC-Zeichensatz. Eine Definition mit 
SYMBOL ist somit eigentlich iiberflussig. Aber schauen Sie doch 
selbst noch einmal ins Bedienungshandbuch und ersetzen die 
Zeile 210 durch eine entsprechende KEY-DEF-Anweisung. 


10 REM Deutsche Sonderzeichen 
20 CLS 

30 PRINT"Betaetigen Sie bitte langsam und" 

40 PRINT"nacheinander folgende Tasten 
50 PRINT:PRINT"ohne SHIFT und CTRL: 

60 PRINT:PRINT"und mit SHIFT : a,[,]" 

70 PRINT:PRINT"und mit CTRL : 2 (links oben)" 

80 SYMBOL AFTER 90 
90 REM klein 'ue 1 

100 SYMBOL 125,&0,&66,&0,&66,&66,&66,&3E,&0 
110 REM gross 'UE' 

120 SYMBOL 93,&66,&0,&66,&66,&66,&66,&3C,&0 
130 REM klein 'oe' 

140 SYMBOL 124,&66,S0,&3C,&66,&66,&66,&3C,&0 
150 REM gross 'OE' 

160 SYMBOL 92,&BA,&6C,&C6,&C6,&C6,&6C,&38,&0 
170 REM klein 'ae' 

180 SYMBOL 123,&C6,&0,&78,&C,&7C,&CC,&76,&0 
190 REM gross 'AE' 

200 SYMBOL 91,&5A,&3C,&66,&66,&7E,&66,&66,&0 
210 REM scharfes ’S' 

220 SYMBOL 126,&7C,&C6,&C6 ( &FC,&C6,&C6,&F8,&C0 
230 PRINT:PRINT:PRINT 
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240 PRINT"Falls Ihnen das 'Design 1 der Umlaute" 
250 PRINT"nicht gefallen sollte, andern Sie" 

260 PRINT"doch einfach die entsprechenden" 

270 PRINT"SYMBOL-Anweisungen." 

280 PRINT:PRINT:PRINT 

290 PRINT"Ende des Programms":END 


5.4 Window-Technologie 


5.4.1 Die Programmierung von Fenstern 

Normalerweise hat Ihr CPC ein "Fenster", das Sie fur bestimmte 
Ein- und Ausgaben nutzen konnen. Mit dem Befehl WINDOW 
haben Sie jedoch die Moglichkeit, den Bildschirm in bis zu acht 
Fenster zu unterteilen. Jedes dieser Fenster k&nnen Sie dann se- 
parat fur bestimmte Ein- und Ausgaben ansprechen. Der Befehl 
WINDOW sieht folgendermaBen aus: 

WINDOW#x,l,r,o,u 

Der Parameter x bezeichnet die Nummer des Fensters. Wenn Sie 
den Wert fur x auslassen, wird automatisch das 0. Fenster neu 
definiert. Alle BASIC-Meldungen erscheinen ubrigens grund- 
satzlich im 0. Fenster. 

Die Parameter 1 und r bestimmen die linke und rechte Spalte 
und die Parameter o und u die obere und untere Zeile des 
Fensters. In Abhangigkeit von dem gewahlten Bildschirmmodus 
(MODE-Befehl) haben Sie entweder 20, 40 oder 80 Spalten bei 
jeweils 25 Zeilen auf Ihrem Bildschirm zur Verfugung. Zum 
Beispiel definieren Sie mit 

UINDOU#5,1,40,25,25 

ein Bildschirmfenster mit der Nummer 5, das nur die unterste 
Bildschirmzeile umfaBt. 
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Wollen Sie nun in ein Fenster etwas hineinschreiben, so geben 
Sie hinter PRINT einfach das Doppelkreuz und eine Zahl an, 
um die Ausgabe auf das definierte Fenster umzuleiten. Mit 

PRINT#5," dies ist das 5. Fenster" 

erhalten Sie somit eine Ausgabe im 5. Fenster; und mit 

CLS#5 

wird dieses und nur dieses 5. Fenster wieder geloscht. 

Wollen Sie nun das Standardausgabefenster 0 auf das 5. Fenster 
legen und umgekehrt, so konnen Sie den Befehl 

WINDOW SWAP 0,5 

anwenden. Das 0. Fenster liegt dann in der letzten Bildschirm- 
zeile, und das 5. Fenster nimmt den restlichen Bildschirmbereich 
ein. 

Es gibt eine ganze Reihe verschiedener Befehle, die Sie auf ein 
bestimmtes Fenster beziehen konnen, denen Sie also mit dem 
Doppelkreuz eine Stream-Nummer zuordnen konnen (Stream = 
GerSt Oder Bereich, iiber das der Computer Informationen aus- 
gibt): 


CLS 

COPYCHR$ 

INPUT 

LINE INPUT 

LIST 

LOCATE 

PAPER 

PEN 

POS 

PRINT 

TAG 
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TAGOFF 

VPOS 

WINDOW 

WRITE 

Einige dieser Befehle sind Ihnen sicherlich noch unbekannt. Sie 
werden jedoch in den weiteren Kapiteln dieses Buches noch 
vorgestellt. Natiirlich kbnnen Sie die meisten dieser Befehle auch 
ohne Angabe einer Stream-Nummer benutzen. Es wird dann 
einfach Stream 0, also das 0. Fenster angenommen. 

Aus der obigen Definition fur den Begriff "Stream" geht hervor, 
daB auch andere Gerate durch die Angabe einer Stream-Num¬ 
mer angesprochen werden kdnnen. Dies ist einmal die eingebaute 
Floppy (Stream 9) und ein anschlieBbarer Drucker (Stream 8). 
Insbesondere in Kapitel 8 und 9 dieses Buches wird darauf noch 
naher eingegangen. 

Bildschirmfenster werden in der Regel dazu genutzt, urn Pro¬ 
gramme optisch besser zu gestalten. Zum Beispiel werden Win¬ 
dows verwendet, um Informationen, die der Benutzer fur die 
Programmsteuerung standig haben muB, in einem definierten 
Bildschirmteil anzuzeigen. Diese Informationen werden nicht 
verandert, wahrend die fur den Programmablauf notwendigen 
Operationen wie die Eingabe von Daten oder Steuerbefehlen in 
dem restlichen Bildschirmbereich erfolgt. 

Einen ahnlichen Effekt kdnnen Sie jedoch erzielen, wenn Sie die 
zweiten 64 K RAM nutzen. So ist zum Beispiel in dem Pro- 
gramm zu Kapitel 6.12 die Benutzeranleitung in einer 
"versteckten" Seite untergebracht, die Sie per Tastendruck auf 
den Bildschirm holen kOnnen. Eine ausfiihrliche Erlauterung 
hierzu finden Sie in Kapitel 6.11 und 6.12. 

Sie kdnnen die Window-Programmierung aber auch dazu nutzen, 
um Programme zu editieren. Wenn Sie zum Beispiel zwei ganz 
unterschiedliche Programmteile miteinander vergleichen wollen, 
so kOnnen Sie sich die beiden Teile in zwei Fenstern nebenein- 
ander auf dem Bildschirm ausgeben lassen. 
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Ein weiterer Anwendungsbereich der Window-Programmierung 
ist der Bereich der Computerspiele. So konnen Sie feststehende 
Spielobjekte (eine StraBe, ein Haus oder ahnliches) in einem de- 
finierten Fenster zeichnen, d. h. , daB diese Objekte nicht im- 
mer wieder neu gezeichnet werden miissen. Die Zeit, die Sie da- 
durch gewinnen, macht das Spiel sicherlich interessanter, da 
"langsame" Spiele oft schnell langweilig werden. 

In diesem Zusammenhang sei erwahnt, daB Sie auch fiir den 
graphischen Bereich ein Fenster (sog. Graphikfenster) definieren 
konnen. Dazu dient der Befehl ORIGIN, der Ihnen in Kapitel 
6.3 vorgestellt wird. 

Um Ihnen einige Anregungen fiir den Umgang mit dem 
WINDOW-Befehl zu geben, finden Sie in den folgenden beiden 
Kapiteln einige Programme. Experimentieren Sie aber auch sel- 
ber mit dem WINDOW-Befehl, um ihn dann in anspruchs- 
volleren Programmen optimal einsetzen zu kdnnen. 


5.4.2 Window-Planer und Bildschirmmasken 

In Ihrem Bedienungshandbuch finden Sie ein Entwurfsgitter fiir 
den Entwurf von Bildschirmfenstern. Es ist durchaus sinnvoll, 
sich vor Beginn einer umfangreicheren Programmierarbeit Ge- 
danken iiber den Aufbau des Bildschirms zu machen. Sie sollten 
also vorher wissen, welcher Bildschirmteil fiir welche 
Programmoperation genutzt werden soil. Ein fertiger Entwurf 
wird dann auch Bildschirmmaske genannt. 

Das folgende Programm hilft Ihnen dabei, einen derartigen Ent¬ 
wurf zu erstellen. Nachdem Sie fiir die einzelnen Fenster die 
Parameter angegeben haben, werden Ihnen die Fenster auf dem 
Bildschirm eingezeichnet. Sie erhalten so eine Vorstellung von 
der Aufteilung des Bildschirms in die definierten Fenster und 
kdnnen die entsprechenden Parameter sp&ter in einem anderen 
Programm verwenden. Damit Sie die eingegebenen Parameter 
nicht vergessen, werden sie nach der graphischen Ausgabe in 
den definierten Fenstern ausgegeben. Fiir diese Ausgabe muB 
ein Fenster natiirlich groB genug sein. Weiterhin werden Sie bei 
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der Benutzung dieses Programms feststellen, daB folgende 
WINDOW-Anweisungen die Ergebnisse vorhergehender 
WINDOW-Anweisungen iiberdecken. Aber kommen wir zum 
Programm: 


10 REM Window-Planer 
20 MODE 1 

30 INPUT"BiIdschirmmodus ";bm 
40 IF bm<0 OR bm>2 THEN 30 
50 MODE bm 
60 n=n+1 

70 PRINT n".tes Fenster:" 

80 PRINT:PRINT:PRINT"Eingabe der Begrenzungen":PRINT 
90 INPUT"links ";l(n) 

100 INPUT"rechts ";r(n) 

110 INPUT"oben ";o(n) 

120 INPUT"unten ";u(n) 

130 IF n<8 THEN PRINT:PRINT:PRINT:INPUT"Noch ein weiteres 

Fenster (j/n) ";a$ ELSE CLS:GOTO 150 

140 CLS:IF a$="j» THEN 60 

150 bnv=2 A bm 

160 FOR i=1 TO n 

170 xt=l(i):yt=o(i):GOSUB 350:PLOT xg.yg 

180 xt=r(i):yt=o(i):GOSUB 350:DRAW xg,yg 

190 xt=r(i):yt=u(i):GOSUB 350:DRAW xg.yg 

200 xt=l(i):yt=u(i):GOSUB 350:DRAU xg.yg 

210 xt=l(i):yt=o(i):GOSUB 350:DRAU xg.yg 

220 LOCATE INT(l(i)-H(r(i>-l(i))/2),INT(o(i)+(u(i)-o(i)>/2> 

:PR I NT i 

230 NEXT i 

240 x$=INKEYS:IF x$="" THEN 240 
250 CLS 

260 FOR i=1 TO n 

270 WINDOW (Ki-1,l(i),r(i),o(i),u(i) 

280 PRINT#i-1,"links ";l(i) 

290 PRINT#!-1,"rechts";r(i) 

300 PR INT#i-1,"oben ";o(i> 

310 PR INT#i-1."unten ";u(i) 

320 NEXT i 
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330 x$=INKEY$:IF x$="" THEN 330 

340 MODE 1:END 

350 xg=xt*32/bm-16/bm 

360 yt=26-yt:yg=yt*16-8:yt=26-yt 

370 RETURN 


Variablenliste: 

a$ Antwortvariable (j,n) 

bm Bildschirmmodus 

i Laufvariable 

l(i) linke Begrenzung eines Fensters 

n Nummer des aktuellen Fensters 

o(i) obere Begrenzung eines Fensters 

r(i) rechte Begrenzung eines Fensters 

u(i) untere Begrenzung eines Fensters 

x$ Wert der gedriickten Taste 

xg x-Koordinate des Graphik-Cursors 

xt x-Koordinate des Text-Cursors 

yg y-Koordinate des Graphik-Cursors 

yt y-Koordinate des Text-Cursors 


Programmbeschreibung: 

10-20 Kommentar und Loschen des Bildschirms 

30-50 Eingabe eines Wertes zum Bildschirmmodus und 

Umschaltung auf diesen Modus 

60 Die laufende Nummer "n" wird erhbht. 

70-120 Fur das n-te Fenster werden die Begrenzungen 
eingegeben. 

130-140 Wenn weitere Fenster definiert werden sollen, er- 
folgt ein Rucksprung zu Zeile 60. Ansonsten wird 
im Programmablauf fortgefahren. 
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150 Die Variable bm wird geandert (aus 0 wird 1, aus 

1 wird 2 und aus 2 wird 4), um einen Faktor fur 
den 20-, 40- Oder 80-Spalten-Modus zu erhalten 
(siehe Unterprogramm Satz 350-370). 

160-230 In dieser Programmschleife werden die Rechtecke 
fur jedes Fenster gezeichnet. Die hier benutzten 
Graphikanweisungen werden in Kapitel 6.3 aus- 
fuhrlich erldutert. Die im Unterprogramm Satz 
350-370 erfolgende Umrechnung von 
"Textkoordinaten" in "Graphikkoordinaten" wird in 
Kapitel 6.6 detailliert dargestellt. 

In Zeile 220 wird der Text-Cursor in die Mitte des 
gezeichneten Fensters gebracht, um die Nummer 
des Fensters in das Rechteck zu schreiben. 

240-250 Warten auf Taste und Loschen des Bildschirms 

260-320 Die WINDOW-Anweisungen werden gesetzt 
(beginnend mit dem 0. Fenster), und die zu Pro- 
grammbeginn eingegebenen Parameter werden in 
dem jeweiligen Fenster ausgegeben. 

330-340 Warten auf Taste, Umschalten auf den 40-Zei- 
chen-Modus und Programmende 

350-370 Unterprogramm zur Umrechnung von 
"Textkoordinaten" in "Graphikkoordinaten" (siehe 
Kapitel 6.6) 


5.4.3 Weitere Anwendungen 

In diesem Kapitel sollen Ihnen noch einige Anregungen beziig- 
lich des Window-Einsatzes vermittelt werden. Neben einer 
"Window-Explosion" wird Ihnen gezeigt, wie sich die Zahlen 1 
und 3 im GroBformat auf dem Bildschirm darstellen lassen. Da- 
bei sei an die in Kapitel 5.3.2 vorgestellte Zeichendefinition er- 
innert. Hier wird praktisch genauso vorgegangen, nur mit dem 
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einen Unterschied, daB hier mit dem ganzen Bildschirm und 
nicht mit einer 8x8-Matrix gearbeitet wird. 

Die in den Programmen benutzte Anweisung PAPER dient dem 
Ausfullen des Hintergrundes mit einer Farbe. Naheres zu diesem 
Befehl finden Sie in Kapitel 6.5. 

Es bleibt jetzt eigentlich nur noch, Ihnen viel SpaB beim Expe- 
rimentieren mit WINDOW zu wunschen. 


10 REM Die Zahl 1 
20 MODE 1 

30 WINDOW #1,12,15,6,8 
40 WINDOW #2,16,23,3,20 
50 WINDOW #3,8,31,21,23 
60 FOR i=1 TO 3 
70 PAPER #i,2 
80 CLS #i 
90 NEXT i 

100 a$=INKEY$:IF a$= M " THEN 100 ELSE END 


10 REM Die Zahl 3 
20 MODE 1 

30 WINDOW #1,8,13,6,8 
40 WINDOW #2,12,27,3,5 
50 WINDOW #3,24,31,6,11 
60 WINDOW #4,16,27,12,14 
70 WINDOW #5,24,31,15,20 
80 WINDOW #6,12,27,21,23 
90 WINDOW #7,8,13,18,20 
100 FOR i=1 TO 7 
110 PAPER #i,2 
120 CLS #i 
130 NEXT i 

140 a$=INKEY$:IF 3$="" THEN 140 ELSE END 
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10 REM Windowexplosion 
20 MODE 1 

30 links=15:rechts=25:oben=11:unten=14 
40 WINDOW links,rechts,oben,unten 

50 tinks=links-1:rechts=rechts+1:oben=oben-1:unten=unten+1 
60 IF oben=0 THEN PAPER 0:END 
70 PAPER 3 
80 CLS 
90 GOTO 40 


5.5 Tips und Tricks fur den BASIC-Programmierer 


5.5.1 Rundungen und Rechengenauigkeit 

Die Rechengenauigkeit eines Computers ergibt sich aus der An- 
zahl der Nachkommastellen (auch Dezimalstellen genannt), die 
mit dem "wahren" Wert ubereinstimmen. Ein Rechner, der zum 
Beispiel fur SQR(2) den Wert 1.4142 ausgibt, hat keine hohe 
Rechengenauigkeit. Ihr CPC ermittelt fur SQR(2) beispielsweise 
den Wert 1.41421356, was Sie leicht selbst feststellen kdnnen, 
wenn Sie 

PRINT SQR(2) 

eingeben. 

Reelle GroBen haben beim CPC eine Genauigkeit von etwas 
iiber neun Stellen. Bei groBeren Zahlen ist somit die Ungenauig- 
keit groBer als 1. Die groBte Zahl, die korrekt gespeichert wer- 
den kann, ist 2 A 32-1 (=4294967295). Dies hangt mit der 
Ablegung von Variablen im Speicher zusammen, die wir in Ka- 
pitel 4.7 erlautert haben. Anhand eines Beispiels soli Ihnen dies 
noch einmal verdeutlicht werden. Wenn Sie 


2*30+1-2*30 
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eingeben, erhalten Sie den Wert 1 als Ergebnis. Geben Sie je- 
doch 


2 A 32+1-2 A 32 

ein, so erhalten Sie als Ergebnis nicht die erwartete 1, sondern 
den Wert 2. Die Ungenauigkeit betragt somit eins. 

Lassen Sie sich aber bitte durch diese Ausfuhrungen nicht ver- 
unsichern. Das vorgestellte Beispiel stellt sozusagen einen Ex- 
tremfall dar. Fur die meisten Anwendungen ist die Rechen- 
genauigkeit Ihres CPC vollkommen ausreichend. 

Wenn es um die Ergebnisausgabe geht, sind bei vielen Anwen¬ 
dungen gerundete Werte viel schbner anzusehen als Zahlen mit 
sehr vielen Nachkommastellen. Zudem passen bei einer tabella- 
rischen Ausgabe die errechneten Werte haufig nicht in das vor- 
gesehene Format, wenn sie nicht gerundet werden. Da es 
mehrere Befehle gibt, die dazu geeignet sind, Zahlen mit vielen 
Nachkommastellen sinnvoll zu "kiirzen", sollen diese hier noch 
einmal zusammenfassend dargestellt werden. 

Der wichtigste Befehl ist die Funktion ROUND. Mit ROUND 
kdnnen Sie auf komfortable Weise Zahlen oder Variablenwerte 
runden. Zum Beispiel erhalten Sie fur 

PRINT ROUND(5.69228,2) 

den Wert 5.69. Der erste Parameter gibt also den zu rundenden 
Wert an, und der zweite Parameter bestimmt die Anzahl der 
Stellen, auf die gerundet werden soli. 

Rundungen konnen Sie aber auch mit dem Befehl PRINT 
USING durchfiihren. Wenn das vorgegebene Format weniger 
Nachkommastellen aufweist als der formatiert auszugebende 
Wert, wird ebenfalls gerundet, so da(3 dann aus 12.378 beispiels- 
weise 12.38 wird, wenn nur zwei Nachkommastellen in der an- 
gegebenen Formatschablone vorgesehen sind (siehe dazu auch 
Kapitel 3.7). 
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Soil bei der Werteausgabe nur der Zahlenanteil vor dem Dezi- 
malpunkt ausgegeben werden, so konnen Sie den Befehl FIX be- 
nutzen. Dieser Befehl schneidet grundsatzlich den Vorkommateil 
ab, w&hrend der Befehl INT bei negativen Werten zur nachst 
kleineren Zahl rundet. Zum Beispiel ergibt 

PRINT FIXC-5.6) 

die Zahl -5, wahrend 

PRINT INT(-5.6) 

die Zahl -6 ergibt. Fur positive Zahlen ergeben sich aber die 
gleichen Werte wie bei der FIX-Funktion. 

Mit der Funktion INT konnen Sie auch die Funktion ROUND 
simulieren. Dazu dient die folgende Beziehung: 

z = INT(z*10 A s%+0.5)/10*s% 

Dabei ist z gleich der zu rundenden Zahl, und die ganzzahlige 
Variable s% gibt die Anzahl der Stellen an, auf die gerundet 
werden soil. Die Nachkommastellen, die gerundet werden sollen, 
werden hierbei zunSchst vor den Dezimalpunkt geholt, und es 
wird 0.5 addiert, um eine wirkliche Rundung zu gewiihrleisten. 
Diese Zahl wird dann mit INT zur nachst kleineren ganzen Zahl 
gerundet. Durch die anschlieBende Division erhSlt man dann 
eine Dezimalzahl mit s% Stellen hinter dem Komma. 

Die weiteren Befehle in diesem Zusammenhang sollen hier nur 
kurz dargestellt werden: 

Die Funktion CINT rundet eine Zahl Oder eine Variable und 
wandelt sie gleichzeitig in ein Integerformat um. Ihr Wertebe- 
reich liegt daher im Bereich von -32768 bis +32767. 

Die Funktion ABS gibt den absoluten Wert einer Zahl Oder Va- 
riablen wieder. Negative Zahlen werden somit postiv. 
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Mit SGN kann man das Vorzeichen eines numerischen Aus- 
drucks abfragen. Fur eine Zahl ergibt sich der Wert 1, wenn die 
Zahl positiv ist, 0, wenn sie gleich Null ist und -1, wenn sie ne- 
gativ ist. 

MOD gibt den Rest einer Division wieder, zum Beispiel den 
Wert 1 bei 13 MOD 4. 

Zwei weitere leistungsstarke Befehle dienen der Ermittlung des 
groBten bzw. des kleinsten Wertes in einer Liste von Zahlen oder 
Variablen. Es sind die Funktionen MIN und MAX. Um Ihnen 
zu demonstrieren, wie man diese Funktionen auch bei der Ver- 
wendung indizierter Variablen benutzen kann, finden Sie im 
folgenden ein kleines Programm, das nicht nur den kleinsten 
und den groBten Wert, sondern "nebenbei" auch noch den 
Durchschnittswert ermittelt. 

Da das Programm relativ einfach ist, sind weitergehende Pro- 
grammerlauterungen an dieser Stelle nicht notwendig. Lediglich 
die Beziehungen k=a(l) und g=a(l) in Zeile 110 kdnnten dem 
Anfanger Schwierigkeiten bereiten. Hier werden jedoch nur die 
Variablen k (kleinster Wert) und g (grdBter Wert) mit einem 
Startwert belegt, um in den Zeilen 130 und 140 die Extremwerte 
bestimmen zu kbnnen. 

Vielleicht failt Ihnen auf, daB in diesem Programm eine ahnliche 
Fragestellung behandelt wird wie in dem Sortierprogramm 
(Kapitel 4.2.2). Wie Sie jedoch mit den Funktionen MIN und 
MAX ein Sortierprogramm fur numerische Werte schreiben kdn- 
nen, soil Ihnen sozusagen als "Denksportaufgabe" iiberlassen 
bleiben. 


10 REM Der kleinste, der groesste und der Durchschnittswert 
20 CLS 

30 INPUT"Uie vide Daten ";n 
40 IF n=0 THEN 190 
50 DIM a(n) 

60 PRINT:PRINT"Dateneingabe :":PRINT 
70 FOR i=1 TO n 
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80 PRINT i;".ter Wert";:INPUT a(i) 

90 s=s+a(i) 

100 NEXT i:CLS 

110 d=s/n:k=a(1):g=a(1) 

120 FOR i=2 TO n 
130 k=MIN(k,a(i)) 

140 g=MAX(g,a(i)) 

150 NEXT i 

160 PRINT:PRINT"Kleinster Wert =";k 
170 PRINT:PRINT"Groesster Wert =";g 
180 PRINT:PRINT"Durchschnittswert =";d 
190 PRINT:PRINT:PRINT"Programmende":END 


5.5.2 Die Rechengeschwindigkeit 

Die Rechengeschwindigkeit ist ein Merkmal, das die Leistungs- 
fahigkeit eines Computers Oder eines Programme betrifft. Was 
den Computer betrifft, so l&Bt sich feststellen, daft der CPC im 
Vergleich zu anderen Rechnern teilweise sehr gute Werte auf- 
weist. Viel wichtiger ist in unserem Zusammenhang die Frage, 
wie Programme schneller gemacht werden kdnnen. Wie sollte 
also programmiert werden, um in einem Programmablauf die 
gleichen Ergebnisse in einer besseren Zeit zu erhalten. Gleich 
vorweg sei gesagt, dafl die Programme dieses Buches nicht unter 
dem Gesichtspunkt der Schnelligkeit geschrieben wurden, da 
dies haufig eine etwas uniibersichtliche Programmgestaltung zur 
Folge hat. 

Wie laBt sich aber nun die Geschwindigkeit eines Programms 
messen? 

Es ist ganz einfach, wenn Sie die Funktion TIME ins Programm 
aufnehmen. TIME gibt ja bekanntlich die Zeit an, die seit dem 
Einschalten des Computers vergangen ist. Dabei entspricht eine 
Einheit einer Dreihundertstelsekunde. 

Zu Beginn eines Programmablaufs miissen Sie eine Variable (z. 
B. "t") mit dem Wert fur TIME belegen, und am Ende des Pro¬ 
gramms belegen Sie eine andere Variable (z. B. "z") mit dem 
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Wert fur (TIME-t)/300. Die Variable z gibt dann die Dauer des 
Programmablaufs in Sekunden wieder. 

Im folgenden finden Sie ein Beispiel fur die 
"Geschwindigkeitsmessung" eines Programmablaufs. Das eigent- 
liche Programm befindet sich hier in einem Unterprogramm und 
wird in Zeile 30 aufgerufen. Die eigentliche Messung wird also 
im Hauptprogramm vorgenommen (eine umgekehrte Program- 
mierung ist allerdings auch moglich). 


10 REM Rechengeschwindigkeit 
20 t=TIME 
30 GOSUB 100 
40 z=(t-TIME)/300 

50 PRINT "Es sind";z; M Sekunden vergangen" 
60 END 

100 FOR i=1 TO 1000 
110 NEXT i 
120 RETURN 


Wenn Sie das Programm so laufen lassen, erhalten Sie einen Wert 
von 1.09 Sekunden. Wenn Sie die Zeilen 100 bis 120 heraus- 
nehmen und dafiir schreiben 

100 FOR i=1 TO 1000:NEXT:RETURN 

erhalten Sie einen Wert von 1.05 Sekunden. Das Programm ist 
also ein wenig schneller geworden. Auf diese Art und Weise 
kdnnen Sie alle Programme durchgehen und "schneller machen". 
Dabei miissen Sie naturlich beachten, daB im Programmablauf 
prinzipiell das gleiche geschieht. Es empfiehlt sich zudem, bei 
kleinen Programmen und kleinen Programmanderungen anzufan- 
gen, um auch die Ursachen des schnelleren Programmablaufs 
ermitteln zu kdnnen. 

In umfangreicheren Programmen kdnnen Sie durch die Beruck- 
sichtigung vieler kleiner Gesichtspunkte durchaus einen be- 
trachtlichen Zeitgewinn erzielen. Damit Sie sich bei der Suche 
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nach "Geschwindigkeitsfaktoren" nicht ganz so allein gelassen 
fiihlen, finden Sie im folgenden eine kleine Aufstellung dreier 
Verfahren zur Beschleunigung von Programmen: 

1) Der Programmablauf und die Berechnungsarten werden 
verbessert. 

Dieses Verfahren ist abMngig von dem Problem das 
gelbst werden soil. Allgemeingiiltige Tips kbnnen somit 
nicht gegeben werden, obwohl man mit einer besseren 
Gestaltung des Programmablaufs haufig die meiste Zeit 
gewinnen kann. Aber vielleicht schauen Sie sich noch 
einmal Kapitel 1.3 an. 

2) Auf Unterprogramme, Programmschleifen und Ver- 
zweigungen wird weitestgehend verzichtet. 

Dadurch verlangern sich die Programme jedoch zum 
Teil sehr erheblich und werden unter Umstanden ganz- 
lich uniibersichtlich. 

3) Syntaktische und speicherungstechnische Verbes- 
serungen. 

Hierunter fallen viele kleine Gesichtspunkte, die nur in 
ihrer Summe einen Zeitgewinn bringen, der dann aber 
unter Umstanden ganz betrachtlich ist. 

Hier ein paar Tips: 

a) Verzichten Sie bei NEXT auf die Angabe der Indexva- 
riablen. 

b) Entfernen Sie unnbtige Leerstellen und REM-Anwei- 
sungen aus Ihrem Programm. 

c) Schreiben Sie moglichst viele Statements in eine Zeile 
(sog. Multistatements). 



BASIC fi'ir Fortseschriitene 


113 


d) Verwenden Sie Variablen anstelle von Konstanten. 

e) Dimensionieren Sie zu Beginn eines Programms. 

f) usw. usf. 


5.5.3 Dem Zufall auf der Spur 

Der CPC besitzt einen Zufallsgenerator, mit dem Sie Zufalls- 
zahlen erzeugen konnen. So liefert der Befehl RND Zufalls- 
zahlen zwischen 0.0 und 1.0. Zum Beispiel konnen Sie mit dem 
folgenden Programm eine Zufallszahl zwischen 1 und 49 
(Lottozahl) erzeugen: 


10 z=INT(RND*49)+1 
20 PRINT z 
30 END 


Auf diese Art und Weise konnen Sie Zufallszahlen fur beliebige 
Intervalle erzeugen. Die allgemeine Beziehung fur Zeile 10 sieht 
folgendermaBen aus: 

z = INT (RND * (Obergrenze - Untergrenze + 1)) + Untergrenze 

Setzen Sie fur die Obergrenze den Wert 49 und fur die Unter¬ 
grenze den Wert 1 ein, so erhalten Sie genau die Beziehung des 
obigen Programmbeispiels. 

Setzen Sie jetzt Ihren Computer mit CONTROL, SHIFT und 
ESC zuruck, und geben Sie folgendes Programm zur Erzeugung 
von fiinf Zufallszahlen ein: 


10 FOR i=1 TO 5 
20 PRINT RND 
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30 NEXT 
40 END 


Vergleichen Sie bitte jetzt die Zahlen auf Ihrem Bildschirm mit 
den folgenden Zahlen: 

0.271940658 

0.528612386 

0.021330127 

0.175138616 

0.657773343 

Sie werden feststellen, daB beide Zahlenreihen identisch sind. 
Dies liegt darin begriindet, daB mit jedem Zuriicksetzen oder 
Einschalten des Computers auch die Zufallszahlenfolge zuriick- 
gesetzt wird. Das eine oder andere Spiel wiirde recht schnell 
langweilig werden, wenn die Aktionen immer auf der gleichen 
Zufallszahlenfolge aufbauen wiirden. 

Aber wie Sie sich denken konnen, bietet Ihr CPC auch fur die¬ 
ses Problem eine Losung an. Der maBgebende Befehl heiBt 

RANDOMIZE X 

Dabei ist x ein numerischer Wert, der den Startwert fur den 
Zufallsgenerator darstellt. Wenn Sie also Ihren Computer zu- 
riicksetzen und das obige Programm mit der Erweiterung 

5 RANDOMIZE 15 

starten, erhalten Sie eine andere Zufallszahlenfolge. Nach einem 
erneuten Zuriicksetzen Ihres Computers erhalten Sie aber dann 
wieder diese zweite Zufallszahlenfolge. Eine "echte" Zufallszahl 
haben Sie somit immer noch nicht. Wir brauchen also ein Argu¬ 
ment fiir RANDOMIZE, welches nach einem Zuriicksetzen des 
Computers in der Regel immer verschieden ist. Hier bietet sich 
die Funktion TIME an, da davon ausgegangen werden kann, daB 
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die seit dem Einschalten vergangene Zeit beim Programmstart 
immer verschieden ist. Wenn Sie also in das obige Programm die 
Zeile 


5 RANDOMIZE TIME 

einsetzen, werden Sie eine Zufallszahlenfolge erhalten, die wirk- 
lich nur rein zufallig wiederholt werden kann. 


5.5.4 Fehlerbearbeitung 

Ihr CPC bietet Ihnen einige Hilfestellungen an, wenn Sie ein 
fehlerhaftes Programm bearbeiten wollen. So kbnnen Sie mit 
dem Befehl TRON die Ausfuhrung eines Programms verfolgen. 
Nach der Eingabe dieses Befehls wird wShrend der 
Programmabarbeitung die jeweilige Zeilennummer in eckigen 
Klammern ausgegeben. Insbesondere dann, wenn Sie in jeder 
Zeile nur einen Befehl stehen haben, kann dies sehr hilfreich 
sein. Sie kdnnen den Programmablauf ja auch mit ESC anhalten 
und den Wert bestimmter Variablen abfragen. Wenn Sie diese 
Hilfe wieder ausschalten wollen, geben Sie einfach TROFF ein. 

Es besteht jedoch auch die Mdglichkeit, im Programm auftre- 
tende Fehler programmintern zu verwalten. Wenn Sie am Anfang 
eines Programms den Befehl ON...ERROR...GOTO verwenden, 
wird ohne Programmunterbrechung zu der angegebenen Zeile 
verzweigt, wenn im Programmablauf ein Fehler auftritt. Ab 
dieser Zeile kOnnen Sie dann ein eigenes kleines 
"Fehlerverwaltungprogramm" installieren bzw. in geeigneter 
Weise auf den Fehler reagieren. 

Fur eine Fehlerverwaltung brauchen Sie jedoch noch zusStzliche 
Informationen. So kdnnen Sie mit der Funktion ERL die Zeilen¬ 
nummer erfragen, in der der letzte Fehler aufgetreten ist, und 
mit ERR erfahren Sie die Fehlernummer des Fehlers. In Kapitel 
6 des Bedienungshandbuches finden Sie eine Aufstellung aller 
Fehlermeldungen, die jeweils mit einer Nummer, der Fehler¬ 
nummer, versehen sind. In Abh&ngigkeit von dieser Fehler¬ 
nummer kdnnen Sie dann in Ihrer Fehlerverwaltung eine eigene 
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Fehlermeldung ausgeben. Liegt ein Fehler im Diskettensystem 
vor, so konnen Sie mit DERR feststellen, welcher Fehler aufge- 
treten ist. In Ihrem Handbuch finden Sie auch dazu eine ent- 
sprechende Aufstellung. Weiterhin haben Sie mit ERROR die 
Moglichkeit, einen Fehler aufzurufen. Das Argument dieses Be- 
fehls ist mit den Fehlernummern identisch. Im 3. Kapitel Ihres 
Handbuches finden Sie auch ein hubsches Beispiel, wie Sie mit 
ERROR Ihre eigenen Fehlermeldungen erzeugen kbnnen. 

Haufig ist es gar nicht notwendig, ein Programm mit der Feh- 
lerverwaltung zu beenden. Es kann durchaus ausreichend sein, 
nach einer entsprechenden Ausgabe das Programm fortzusetzen. 
Dazu dienen die Befehle RESUME NEXT und RESUME 
(Zeilennummer). Bei RESUME NEXT fahrt das Programm ab 
der Zeile fort, die der fehlerhaften Zeile folgt. Hingegen konnen 
Sie mit RESUME die Programmzeile frei bestimmen, mit der 
das Programm fortfahren soil. 


5.5.5 Kopierschutz 

Insbesondere professionelle Programme werden in der heutigen 
Zeit mit einem Kopierschutz belegt, urn eine unerlaubte Ver- 
vielfaltigung zu verhindern. Ihr CPC hat einen derartigen Schutz 
schon fest installiert. Wenn Sie ein Programm mit SAVE ab- 
speichern, brauchen Sie an den Programmnamen nur ein Komma 
und ein "p" anzuhangen. Ein so gespeichertes Programm konnen 
Sie nur mit RUN "Name" Oder CHAIN "Name" starten. Sie kbn- 
nen ein solches Programm nicht listen und auch nicht abspei- 
chern. Eine Programmunterbrechung mit ESC hat eine Lbschung 
des Programms zur Folge. Sie kbnnen das Programm also quasi 
nur noch "ablaufen" lassen. Daher sollten Sie als Autor immer 
eine ungeschiitzte Kopie dieses Programms haben, um evtl. An- 
derungen oder Erweiterungen vornehmen zu konnen. 

Sollte Ihnen diese Art des Programmschutzes nicht ausreichen 
oder wollen Sie ganz einfach selber einmal mit Schutzmechanis- 
men experimentieren, so erinnern Sie sich doch einfach an 
Kapitel 4.7 und 4.8 dieses Buches. Dort haben wir erfahren, daB 
die Tokenwerte 226, 232 und 233 nicht belegt sind. Geben Sie 
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doch einmal POKE 372,226 ein, und versuchen Sie dann, ein 
Programm zu listen Oder zu starten. Sie werden erstaunt sein, 
was dann passiert. 

Weiterhin haben wir in Kapitel 4.7 gesehen, wie eine BASIC- 
Zeile im Speicher abgelegt wird. Vielleicht uberlegen Sie selbst 
einmal, was passiert (bzw. welche Zeile unter keinen Umstanden 
entfernt werden kann), wenn Sie in der Mitte eines Programms 
einen POKE-Befehl setzen, der aus einer ersten REM-Zeile 
bezuglich des Copyrights eine PRINT-Zeile macht, und wenn 
die zweite Programmzeile eine fiir den Programmablauf unbe- 
dingt erforderliche Programmanweisung enthdlt. 
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6. Grafik 


6.1 Einfiihrung 

Die Grafikmoglichkeiten gehoren sicherlich zu den interessante- 
sten und faszinierendsten Eigenschaften eines Computers. Auch 
auf diesem Gebiet gehort Ihr CPC 6128 zur Spitzenklasse, wenn 
man ihn mit anderen Rechnern vergleicht. 

Viele Anwendungen im EDV-Bereich sind ohne eine leistungs- 
fahige Grafik fast undenkbar geworden. Immer dann, wenn 
viele Zahlen vom Computer-Benutzer zu verstehen sind, werden 
diese grafisch aufbereitet. Der Mensch ist schlieBlich ein optisch 
orientiertes Wesen. So lieBe sich beziiglich des Einsatzes der 
Computer am Arbeitsplatz durchaus auch die grafische Aufbe- 
reitung von Programmen unter dem Stichwort "Ergonomie" fas- 
sen. Ergonomisch sollte schlieBlich nicht nur die Hardware, 
sondern auch die Software sein. 

Alles das, was Ihr CPC in diesem Bereich bietet, wird in diesem 
Kapitel ausfuhrlich dargestellt. Wie immer werden die theoreti- 
schen Erlauterungen mit vielen praktischen Beispielen und 
Anwendungen untermalt. Jedoch sollten Sie auch hier nicht auf 
eigene Experimente verzichten. 


6.2 Grafikauflosung und Zufallsgrafik 

Die Grafikaufldsung zahlt zu den haufig diskutierten Eigen¬ 
schaften eines Computers. Wie Sie schon im zweiten Kapitel 
dieses Buches erfahren haben, ist diese von dem gewahlten 
Bildschirm-Modus abhangig. Maximal (MODE 2) steht Ihnen 
dabei ein Raster von 640 Punkten in horizontaler und 200 
Punkten in vertikaler Richtung zur Verfugung. Das sind immer- 
hin 128000 Punkte, die Sie unabhangig voneinander leuchten 
lassen konnen. Dies ist sicherlich ausreichend (haufig mehr als 
das), um gute Grafiken, Zeichnungen, Diagramme Oder Spiele 
entwerfen zu konnen. Sollten Sie immer noch Schwierigkeiten 
mit dem Begriff ‘Auflosung 1 haben, so denken Sie einfach an 
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einen dicken und einen feinen Bleistift. Es ist klar, daB Sie mit 
einem feinen Bleistift exakter zeichnen konnen, da Sie eine 
"hohere Auflosung" erzielen. 

Grundsatzlich kann man bei jedem modernen Rechner zwischen 
einem sog. "Textmodus" und einem sog. "Grafikmodus" unter- 
scheiden. Bei alteren Rechnern muB man zum Beispiel ein 
gesondertes Kommando eingeben, um von dem einen in den 
anderen Modus zu kommen. Bei Ihrem CPC ist dies einfacher, 
da sich die Grafikbefehle automatisch auf den Grafikmodus 
beziehen. 

Der Unterschied zwischen Text- und Grafikmodus laBt sich am 
besten mit dem Begriff der Auflbsung erklaren. Wahrend Sie im 
Textmodus entweder 20, 40 oder 80 Zeichen bei 25 Zeilen zur 
Verfugung haben, sind es im Grafikmodus 160, 320 oder 640 
Punkte in horizontaler und 200 Punkte in vertikaler Richtung. 
Im Textmodus konnen Sie somit beliebige Zeichen setzen, hin- 
gegen werden im Grafikmodus nur Punkte gesetzt. Genauso wie 
im Textmodus gibt es auch im Grafikmodus einen Cursor. Die- 
ser Grafik-Cursor ist jedoch im Gegensatz zum Text-Cursor 
unsichtbar. In den folgenden Kapiteln werden Sie sehen, daB 
dies kein Hindernis ist. Es gibt eine ganze Reihe verschiedener 
Grafikbefehle. Der noch nicht ganz "sattelfeste" BASIC-Pro- 
grammierer wird dies vielleicht recht verwirrend finden. Daher 
soil im folgenden gezeigt werden, wie man mit den beiden 
elementaren Befehlen PLOT und DRAW schon recht interessante 
grafische Effekte erzielen kann. 

Mit dem Befehl PLOT wird dabei die Position des Grafik- 
Cursors bestimmt. Er hat (mindestens) zwei Parameter. Der erste 
Parameter bestimmt die x-Koordinate (horizontale Richtung) 
und der zweite Parameter die y-Koordinate (vertikale Richtung). 
Ein so bestimmter Punkt wird auch direkt auf dem Bildschirm 
angezeigt. Der Ursprung des Koordinatenkreuzes mit dem Punkt 
0,0 liegt in der Ecke unten links auf dem Bildschirm. 

Wenn es um die Koordinaten des Grafik-Cursors geht, spricht 
man auch hSufig von Pixel-Koordinaten. Ein Pixel ist die klein- 
ste darstellbare Einheit auf dem Bildschirm. Der Bildschirm hat 
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640 Pixel in horizontaler Richtung und 400 Pixel in vertikaler 
Richtung. Wollen Sie somit einen Punkt in die Bildschirmmitte 
setzen, miissen Sie die x-Koordinate 320 und die y-Koordinate 
200 wahlen. Zu beachten ist, daB diese Pixel-Koordinaten im 
Modus 0, 1 und 2 gleichbleiben. Sie miissen also auch bei einer 
Aufldsung von 160*200 Punkten (MODE 0) PLOT 320,200 ein- 
geben, um in der Bildschirmmitte einen Punkt zu erhalten. 

Mit dem Befehl DRAW konnen Sie, ausgehend von der aktuellen 
Position des Grafik-Cursors, eine Linie ziehen. Wohin diese 
Linie gezogen wird, kdnnen Sie wiederum durch die Angabe 
einer x- und einer y-Koordinate bestimmen. 

Um Ihnen das ganze einmal zu verdeutlichen, finden Sie im fol- 
genden ein kleines Programmchen, welches Ihnen erste Moglich- 
keiten der Grafikprogrammierung aufzeigt. Es heiBt schlicht und 
einfach "Zufallsgrafik". Ausgehend von einem zufallig bestimm- 
ten Punkt, wird eine Linie zu einem anderen, ebenfalls zufallig 
bestimmten Punkt gezogen. Von da aus wird wiederum eine 
Linie ... usw. Dies wird insgesamt viermal wiederholt. 
AnschlieBend wird dann eine Linie von der aktuellen Cursor- 
Position zuruck zum Ausgangspunkt gezogen. 

Und so sieht das Programm aus: 


10 REM Zufallsgraphik 
20 MODE 2 

30 x=RND*640:y=RND*400 
40 PLOT x,y 
50 FOR i=1 TO 4 
60 DRAW RND*640,RND*400 
70 NEXT i 
80 DRAU x,y 


Mit jedem Programmstart erhalten Sie ein neues Bild. Sollte 
Ihnen das Programm langweilig werden, andern Sie einfach den 
Schleifenendwert in Zeile 50. Dann wird Ihre Grafik 
"komplexer". Weiterhin konnten Sie auch noch eine zusatzliche 
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Programmzeile eingeben, um den Programmablauf "endlos" 
fortzusetzen, zum Beispiel: 

90 GOTO 30 

Mit der Zeit entsteht dann ein Bild, das man "Wollknauel" 
nennen konnte. 

Die hier benutzte Funktion RND (siehe Kapitel 5.5.3) dient 
dazu, jedem Punkt auf dem Bildschirm die "gleiche Chance" zu 
geben. 


6.3 Leistungsstarke Grafikbefehle 

Im letzten Kapitel haben wir schon zwei grundlegende Grafik¬ 
befehle kennengelernt. Die dort benutzten Parameter waren 
absolute Koordinatenwerte. Absolut heiBt in diesem Fall, daB 
die durch die Koordinaten x und y bestimmte Position nur vom 
Koordinatenursprung abhangig ist. Wenn man sich den Bild¬ 
schirm als Raster vorstellt und jedem Kreuzungspunkt eine x- 
und eine y-Koordinate zuordnet, so kann man sich bei der 
Angabe absoluter Koordinaten genau an diesem Raster orientie- 
ren. 

Anders sieht es aus, wenn man mit relativen Koordinaten arbei- 
tet. Die relativen Koordinaten werden namlich zur aktuellen 
Grafik-Cursor-Position hinzuaddiert. Daraus ergeben sich dann 
die absoluten Koordinatenwerte. Der Bezugspunkt ist also nicht 
mehr der Koordinatenursprung, sondern die aktuelle Cursor- 
Position. Wenn sich der Grafik-Cursor zum Beispiel an der 
Position 200,200 befindet und Sie hatten gerne einen Punkt in 
der Bildschirmmitte, so miiBten Sie fur die x-Koordinate den 
Wert 120 und fur die y-Koordinate den Wert 0 angeben. 

Der entsprechende Befehl dazu heiBt 

PLOTR. 

Genauso gibt es auch einen DRAW-Befehl der mit relativen 
Koordinaten arbeitet. Er heiBt 
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DRAWR. 

Die folgenden Grafikbefehle arbeiten ebenfalls sowohl mit 
absoluten als auch mit relativen Koordinaten: 

MOVE und MOVER 
TEST und TESTR 

Der Befehl MOVE x,y dient dazu, den Grafik-Cursor zu bewe- 
gen, ohne einen Punkt zu setzen, wie es beim PLOT-Befehl der 
Fall ist. Wiihrend MOVE mit absoluten Koordinaten arbeitet, 
wird der Cursor bei MOVER an die relativ zur alten Position 
berechneten Stelle bewegt. 

Bei TEST (absolute Koordinaten) und TESTR (relative Koordi¬ 
naten) wird der Cursor ebenfalls zur angegebenen Position 
verschoben. Gleichzeitig gibt die Funktion TEST bzw. TESTR 
aber die Nummer des Farbstiftes an, der an dieser Position ver- 
wendet wurde (siehe dazu auch Kapitel 6.5). 

Da der Grafik-Cursor im Gegensatz zum Text-Cursor unsichtbar 
ist, ist es haufig notwendig, die aktuelle Cursor-Position zu 
erfahren. Dies ist iiberhaupt kein Problem, da es die beiden 
Funktionen XPOS (zur Angabe der x-Koordinate) und YPOS 
(zur Angabe der y-Koordinate) gibt. 

Der Bezugspunkt fur die absolute Koordinatenangabe ist - wie 
erwahnt - der Ursprung des Koordinatenkreuzes links unten auf 
dem Bildschirm. Nun kann es in der einen Oder anderen 
Anwendung sinnvoll sein, diesen Ursprung zu verschieben. Dies 
geschieht mit dem Befehl 

ORIGIN x,y. 

Dieser Befehl wird aber erst richtig leistungsstark, wenn man 
mit ihm ein Grafikfenster definiert. Neben den beiden Angaben 
zu x und y sind dann noch vier weitere Wahlparameter zur 
linken, rechten, oberen und unteren Begrenzung des Fensters 
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anzugeben. Der ORIGIN-Befehl arbeitet dann genauso wie die 
WINDOW-Anweisung, nur eben auf den Grafikmodus bezogen. 

Bisher sind wir immer davon ausgegangen, daB Linien nur in 
durchgezogener Form auf dem Bildschirm erscheinen. Mit dem 
Befehl MASK haben Sie jedoch die Moglichkeit, gestrichelte 
oder gepunktete Linien zu zeichnen. Das mit MASK definierte 
Punkt- oder Linienmuster wiederholt sich alle 8 Pixel. Es 
werden also 8 hintereinanderliegende Punkte definiert, die einen 
kleinen Ausschnitt der mit DRAW zu zeichnenden Linie 
darstellen. Dieser Ausschnitt wird immer wieder wiederholt, so 
daB eine gestrichelte bzw. gepunktete Linie entsteht. 

Das Punktmuster wird eine achtstellige Binarzahl dargestellt. Die 
Ziffer 1 gibt an, daB ein Punkt gesetzt wird, und die Ziffer 0 
zeigt an, daB kein Punkt gesetzt wird, so daB eine Lucke 
entsteht. Eine gepunktete Linie erhalten Sie zum Beispiel, wenn 
Sie folgende Binarzahl wahlen: 01010101. Diese Binarzahl ist im 
MASK-Befehl mit ‘&X‘ zu kennzeichnen: 

MASK &X01010101 

Im MASK-Befehl konnen Sie auch Dezimalzahlen im Bereich 
von 0 bis 255 verwenden. Die dualen Werte zeigen jedoch sofort 
und unmiBverstandlich, wie das definierte Punktmuster aussieht. 


6.4 Grafikzeichen 

Wie Sie bisher gesehen haben, bietet Ihr CPC einiges in Sachen 
Grafik. Aber das ist natiirlich noch langst nicht alles. Eine 
weitere hervorragende Eigenschaft Ihres CPC ist es, mit der 
Funktion CHR$ Grafikzeichen auf den Bildschirm zu zaubern. 
Lassen Sie sich doch noch einmal mit dem folgenden Programm 
den Zeichensatz Ihres Rechners ausgeben: 


10 FOR i=32 TO 255 
20 PRINT i,CHR$(i) 
30 NEXT 
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Auf dem Bildschirm sehen Sie jetzt in jeder Zeile (den 
Programmablauf sollien Sie gelegentlich mit ESC unterbrechen) 
eine Zahl und ein Zeichen. Die Zahl ist dabei das Argument der 
Funktion CHR$ fur das jeweilige Zeichen. 

Sie sehen, daB Grafikzeichen wie Mannchen, Bombe usw. zur 
Verfiigung stehen. Insbesondere fur Spielprogramme ist deren 
Einsatz interessant. Natiirlich konnen Sie sich - wie in Kapitel 
5.3.2 erlautert - jedes Zeichen selbst definieren. Aber warum 
soil man sich die Miihe der Definition eines Zeichens machen, 
wenn der Computer es bereithalt. 

Mit PRINT CHR$(252) erhalten Sie eine Bombe auf dem Bild¬ 
schirm. Eine Bombe - so schrecklich das in der Wirklichkeit 
auch sein mag - hat die unangenehme Eigenschaft zu fallen. Die 
Frage ist, wie man einen solchen Bewegungsvorgang auf dem 
Bildschirm erzeugen kann. Das Prinzip ist ganz einfach. Mit 
LOCATE und PRINT wird eine Bombe gezeichnet. Direkt 
danach wir an der gleichen Stelle mit Hilfe eines Leerstrings die 
Bombe geldscht bzw. uberschrieben. AnschlieBend wird eine 
Zeile tiefer wieder eine Bombe gezeichnet, wieder geloscht usw. 
So entsteht der Eindruck der Bewegung. 

In dem folgenden Programm fallt die Bombe vom oberen zum 
unteren Bildschirmrand. Dies geschieht mittels einer Schleife 
sowie des LOCATE- und des PRINT-Befehls. In Zeile 110 ist 
eine Warteschleife eingebaut, welche die Fallgeschwindigkeit 
beeinfluBt. Ein hoher Wert fur g in Zeile 40 bewirkt ein lang- 
sameres Fallen der Bombe, da dann mehr Zeit fur den Schlei- 
fendurchlauf in Zeile 110 benotigt wird. Zu beachten ist, daB 
die Bombe erst in Zeile 120, also nach dem Schleifendurchlauf, 
geldscht wird. 

In Zeile 70 kommt eine weitere Besonderheit des CPC zur 
Anwendung: der FRAME-Befehl. Mit diesem Befehl wird die 
Bewegung der Bombe gleichmaBiger. Er ist immer dann einzu- 
setzen, wenn sich Zeichen Oder Grafiken gleitend auf dem 
Bildschirm bewegen. 
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10 REM Die Bombe faellt 

20 PRINT"Geschwingigkeitseingabe (je hoeher die" 

30 PRINT"Zahl desto langsamer faellt die Bombe)" 

40 INPUT g 

50 MODE 2 

60 FOR i=1 TO 25 

70 FRAME 

80 LOCATE 40,i 

90 PRINT CHR$(252) 

100 LOCATE 40, i 

110 FOR j=1 TO g:NEXT j 

120 PRINT" " 

130 NEXT i 


6.5 Farbenzauber 

Auch auf dem Gebiet der Farben ist der CPC 6128 ein ausge- 
zeichnetes Gerat. Nicht zuletzt deshalb finden Sie direkt neben 
der Tastatur die "CPC-Farbtabelle", in der immerhin 27 Farben 
aufgefiihrt sind. Diese Farben konnen allerdings nicht alle 
gleichzeitig benutzt werden. Im Modus 0 sind es 16, im Modus 1 
sind es 4 und im Modus 2 nur noch 2 Farben. 

Uber Farben und insbesondere uber die mit Farben zu erzielen- 
den Effekte konnte man ein sehr umfangreiches Kapitel schrei- 
ben. Prinzipiell kann man namlich so ziemlich alles farbig 
gestalten. Sie sollten sich aber genauestens uberlegen, wann Sie 
dies machen. Ihre Augen werden es Ihnen beispielsweise danken, 
wenn Sie Textverarbeitung nicht mit allzu vielen oder gar blin- 
kenden Farben betreiben. Bei vielen Anwendungen (die einen 
starren Blick auf den Bildschirm erfordern) ist jeglicher Far¬ 
benzauber fehl am Platze. Nur Spiele leben quasi (u. a.) von der 
farblichen Gestaltung. Auch das eine Oder andere Diagramm 
sieht farblich vielleicht schbner aus. Abgesehen von Spielpro- 
grammen kann man somit sagen, daB die meisten Programme 
ohne Farben auskommen bzw. daB man sich immer noch 
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Gedanken iiber die farbliche Gestaltung machen kann, wenn das 
Programm an sich fertig ist. 

Aus diesen Griinden und um die Besitzer eines Grunmonitors 
nicht zu frustrieren, ist dieses Farbkapitel etwas knapper gehal- 
ten. In Ihrem Bedienungshandbuch werden aber auch die Farb- 
befehle relativ ausfuhrlich erlautert. Somit finden Sie im folgen- 
den eine kurze und prazise Darstellung der wesentlichen Farb- 
elemente. Immer wenn Sie es mit Farben zu tun haben, mussen 
Sie bedenken, daB Sie die Farben des Bildschirmrandes 
(BORDER), des Schrifthintergrundes (PAPER) und des Schreib- 
stiftes (PEN) unabhangig voneinander bestimmen konnen. Mit 
dem Befehl 

BORDER x 

konnen Sie direkt der "CPC-Farbtabelle" eine Farbnummer x 
entnehmen. Der Bildschirmrand Sndert dann seine Farbe ent- 
sprechend. 

Anders verhait es sich bei den Befehlen PEN und PAPER. Zwar 
kbnnen Sie mit dem Befehl PEN die Farbe des Schreibstiftes 
Sndern und mit dem Befehl PAPER die Farbe des Hintergrun- 
des, jedoch nicht auf direktem Wege durch Angabe einer Farb¬ 
nummer. Vielmehr werden bei PEN und PAPER Nummern 
angegeben, die fur bestimmte Farben stehen. Nach dem 
Einschalten zum Beispiel ist PEN auf 1 und PAPER auf 0 
gesetzt. Der Nummer 1 ist nun die Farbnummer 24 (hellgelb) 
und der Nummer 0 die Farbnummer 1 (blau) zugeordnet. Wollen 
Sie nun der PEN/PAPER-Nummer 1 eine andere Farbe (auch 
blinkende Farben sind moglich) zuordnen, so mussen Sie den 
INK-Befehl benutzen. Zum Beispiel konnen Sie mit 

INK 1,26 

der PEN/PAPER-Nummer 1 die Farbe leuchtendweiB zuordnen. 
Der Schreibstift hat dann die Farbe leuchtendweiB. Um dies 
wieder zu andern, konnen Sie entweder einen neuen INK-Befehl 
eingeben, Oder Sie ordnen dem Schreibstift mit PEN eine andere 
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Nummer zu. Genauso kdnnen Sie natiirlich auch mit PAPER 
arbeitem. 

Welcher PEN/PAPER-Nummer nun welche Farbe standard- 
maBig zugeordnet ist (dies ist auch abhangig vom gewahlten 
Bildschirmmodus), konnen Sie der in Ihrem Bedienungshandbuch 
(Kapitel 1, Seite 54) aufgefuhrten PAPER/PEN/MODE/INK 
Zuordnungstabelle entnehmen. 

Was bisher uber PEN und PAPER gesagt wurde, kanh mit den 
Befehlen GRAPHICS PAPER und GRAPHICS PEN auch auf 
den Grafikbereich iibertragen werden. Grafiken konnen Sie far- 
big gestalten, indem Sie den Grafikbefehlen PLOT, PLOTR, 
DRAW, DRAWR, MOVE Oder MOVER einen Farbstift zuord- 
nen (als dritten Parameter). Weiterhin kbnnen diese Befehle mit 
einem vierten Parameter, dem sog. Farbmodus, versehen werden. 
Mit ihm ist es moglich, die Farbe des benutzten Farbstiftes mit 
den anderen Farben auf dem Bildschirm zu kombinieren. Insge- 
samt stehen Ihnen vier verschiedene Farbstiftmodi zur Verfii- 
gung. Fur deren Verwendung schauen Sie am besten ins Bedie¬ 
nungshandbuch, um dann selbst damit zu experimentieren. Hier 
finden Sie nur ein einfaches Beispiel zur Verwendung der logi- 
schen Verknupfung XOR (Parameterwert 1): 


10 CLS 

20 MOVE 50,50,,1 
30 DRAU 50,300 
40 DRAU 500,300 
50 DRAW 500,50 
60 DRAW 50,50 
70 GOTO 20 


Der vierte Parameter im MOVE-Statement bewirkt hier den 
Farbwechsel. 

Brechen Sie das Programm ab und geben Sie 


20 MOVE 50,50„0 
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ein und ldschen Sie Zeile 70. Sie erhalten nun nach einem 
Programmstart ein schones Rechteck auf dem Bildschirm, da der 
Parameterwert 0 wieder auf den normalen Farbmodus umschal- 
tet. Dieses Rechteck konnen Sie nach einer abermaligen Pro- 
grammunterbrechung mit dem Kommando FILL farblich 
ausfiillen. Dazu miissen Sie jedoch vorher den Grafik-Cursor in 
das Rechteck hineinsetzen, beispielsweise mit 

MOVE 100,100. 

Sodann kdnnen Sie z. B. mit 

FILL 3 

die FlSche zwischen den Linien mit der der PEN/PAPER- 
Nummer 3 zugeordneten Farbe ausfiillen. 


6.6 Grafik und Text 

Viele leistungsfahige Programme leben davon, dal3 Grafiken und 
Texte zusammen auf dem Bildschirm dargestellt werden. Denken 
Sie zum Beispiel an Diagramme Oder an das eine oder andere 
Spielprogramm. Leider entsprechen sich Grafik- und Text-Cur¬ 
sor aber nicht. WShrend der Text-Cursor in der linken oberen 
Ecke des Bildschirms seine Position 0,0 hat, ist der Ursprung des 
Grafik-Cursors links unten auf dem Bildschirm. 

Natiirlich besteht die Moglichkeit, mit dem Befehl ORIGIN den 
Ursprung des Grafik-Cursors zu verlegen, beispielsweise auch in 
die linke obere Ecke. Jedoch ist auch dann die Berechnung der 
einen Cursorposition aus der Position des anderen Cursors nicht 
mit Hilfe eines einfachen Faktors moglich, da einmal die Vor- 
zeichen der x- und y-Koordinaten nicht identisch sind und zum 
anderen der Text-Cursor vom aktuellen Bildschirmmodus abhan- 
gig ist. 

Aber, wie in Schneider-BASIC iiblich, gibt es fur (fast) jedes 
Problem einen passenden Befehl. In diesem Fall sind es die 
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Befehle TAG und TAGOFF. Wird TAG gesetzt, so erscheint der 
nachfolgende Text an der Stelle, wo sich der Grafik-Cursor 
befindet. Die linke obere Ecke des Textzeichens liegt dann auf 
dem Grafik-Cursor. Mit TAGOFF wird der Text-Cursor wieder 
an die Stelle gesetzt, wo er sich vor dem TAG-Befehl befand. 

Bei der dem TAG-Befehl folgenden PRINT-Anweisung ist 
darauf zu achten, daB hinter dem PRINT ein ; steht, da anson- 
sten Kontrollzeichen wie Wagenriicklauf oder Zeilenvorschub 
mit ausgegeben werden. Weiterhin ist im Direktmodus zu 
beriicksichtigen, daB TAG mit der ‘Stream‘-Angabe 0 abge- 
schaltet wird. 

Der TAG-Befehl kann dazu benutzt werden, Textzeichen 
genauer, d.h. Pixelweise, zu positionieren. Auf diese Art und 
Weise ist es zum Beispiel vollkommen unproblematisch, eine 
Laufschrift zu programmieren. Dies konnte folgendermaBen 
aussehen: 


10 REM Laufschrift 
20 CLS 
30 TAG 

40 FOR i=-128 TO 640 
50 MOVE i,200 
60 PRINT" Computer"; 
70 NEXT 
80 TAGOFF 


Nach dem Programmstart bewegt sich das Wort "Computer" 
Pixelweise von links nach rechts iiber den Bildschirm. Da dies 
eine gewisse Zeit dauert, ist es ratsam, in Zeile 40 eine andere 
Schrittweite einzufiigen (z. B. STEP 8). Der Schleifenanfangs- 
wert von -128 kommt dadurch zustande, daB das Wort 
"Computer" im Bildschirmmodus 1 genau 128 Pixel lang ist (pro 
Buchstabe 16 Pixel). SchlieBlich soli das Wort "Computer" nicht 
sofort, sondern "laufend" auf dem Bildschirm erscheinen. Zu 
beachten ist ferner, daB in Zeile 60 dem eigentlichen Wort ein 
Leerzeichen vorangestellt ist, um nicht mehr benotigte Teile des 
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Schriftzugs ("Kondensstreifen") zu loschen. Und, wenn Sie Far- 
ben ins Spiel bringen wollen, denken Sie daran, daB fur einen so 
auf den Bildschirm gebrachten Text die Befehle GRAPHICS 
PEN und GRAPHICS PAPER zustandig sind. 

Nun kann es jedoch auch vorkommen, daB Sie Grafikkoordina- 
ten auf Textkoordinaten abstimmen wollen. Dies konnen Sie mit 
dem TAG-Befehl nicht machen. Sie miiBten sich dann selber 
Gedanken uber eine sinnvolle Plazierung der Grafik machen. 
Einfacher haben Sie es da schon, wenn Sie auf ein Programm 
zuriickgreifen konnen, das Ihnen diese Arbeit abnimmt. Im fol- 
genden finden Sie ein derartiges Programm. Neben der Umrech- 
nung Grafik-/Textkoordinaten konnen Sie auch umgekehrt vor- 
gehen, also quasi den TAG-Befehl simulieren. Es zeigt sich 
somit, daB BASIC-Anweisungen durch eine geeignete Software 
ersetzt werden konnen. Allerdings sollte man moglichst immer 
den zur Verfiigung stehenden BASIC-Vorrat ausschdpfen, um 
die Programme einfach und ubersichtlich zu gestalten. Dies 
wirkt sich dann auch positiv auf die Rechengeschwindigkeit aus. 

In dem folgenden Programm erfolgt nach einer Menuauswahl die 
eigentliche Umrechnung. Dabei sind die Programmzeilen 180 
und 190 besonders relevant. Sie sind auch durchaus (naturlich 
ohne IF-Statement) fur das eine Oder andere Unterprogramm zu 
gebrauchen. Nach dieser Umrechnung werden die entsprechen- 
den Koordinatenwerte in Textform und in grafischer Form aus- 
gegeben. Die Koordinatenberechnung erfolgt so, daB die berech- 
neten Grafikkoordinaten in der Mitte des Textzeichens liegen. 
Werden Textkoordinaten berechnet, ist dies naturlch nicht mdg- 
lich. Sie bedecken die Grafikkoordinate dann lediglich. 


10 REM Umrechnung Text-Graphik bzw. Graphik-Text Koordinaten 
20 CIS 

30 PRINT:PRINT"Umrechnung der Cursorpositionen" 

40 PRINT:PR I NT:PR I NT TAB(33)"Eingabe" 

50 PR I NT: PR I NT: PR I NT "Text - Graph i k"; TAB (36) 11 1 11 
60 PRINT:PRINT"Graphik-Text M ;TAB(36)"2" 

70 PR I NT:PR I NT:PR I NT:INPUT"Ihre Wahl »;a 
80 IF a<1 OR a>2 THEN 30 
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90 PRINT:PRINT:PR I NT:PR I NT:INPUT"Bi Idschirmmodus (0,1 Oder 2) ";bm 

100 CLS:IF bm <0 OR bm>2 THEN 90 

110 IF a=2 THEN 140 

120 INPUT"x-Koordinate (Text) ";xt 

130 PRINT:INPUT"y-Koordinate (Text) ";yt:GOTO 160 

140 INPUT"x-Koordinate (Graphik) ";xg 

150 PRINT:INPUT"y-Koordinate (Graphik) M ;yg 

160 PRINT:PRINT:PRINT"umgerechnet ergibt sich:":PRINT 

170 bm=2 A bm 

180 IF a=1 THEN xg=xt*32/bm-16/bm ELSE xt=INT(xg/32*bm)+1:IF 
xg=640 THEN xt=20*bm 

190 IF a=1 THEN yt=26-yt:yg=yt*16-8:yt=26-yt ELSE yg=400- 
yg:yt=INT(yg/16)+1:yg=400-yg 
200 IF a=2 THEN 220 

210 PRINT:PRINT"x (Graphik) = , ’;xg:PRINT:PRINT"y (Graphik) 
=";yg:GOTO 230 

220 PRINT:PRINT"x (Text) =";xt:PRINT:PRINT"y (Text) =";yt 
230 PRINT:PRINT:PRINT:PRINT:PRINT"Bitte eine Taste druecken" 

240 a$=INKEY$: I F a$='"' THEN 240 
250 MODE INT(bm/2) 

260 LOCATE xt,yt:PRINT CHR$(143) 

270 IF !NT(bm/2)=2 THEN f=2 ELSE f=3 
280 PLOT xg.yg.f 

290 a$=INKEY$:IF a$="" THEN 290 ELSE MODE 1:END 


Variablenliste: 

a Antwort ‘Menuauswahl 1 

a$ gibt den Wert der gedriickten Taste zuriick 

bm Bildschirmmodus und Faktor 

f Farbstift des Punktes bei der Grafikausgabe 

xg x-Koordinate "Grafik" 

xt x-Koordinate "Text" 

yg y-Koordinate "Grafik" 

yt y-Koordinate "Text" 
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Programmbeschreibung: 

10-20 Kommentar und Loschen des Bildschirms 

30-80 Menuauswahl 

90-100 Wahl des Bildschirmmodus 1 

110-150 Eingabe der x- und y-Koordinaten, die umgerech- 
net werden sollen (Text und Grafik getrennt). 

160 Ausgabe einer Uberschrift fur die Ergebnisausgabe 

170 Die Variable bm wird zum Faktor (aus 0 wird 1, 

aus 1 wird 2, aus 2 wird 4). 

180 Die x-Koordinaten "Grafik" bzw. "Text" werden 

berechnet. Es sei daran erinnert, daB im Modus 1 
fur jedes Zeichen 16 Pixel zur Verfugung stehen. 
Dieser Wert halbiert bzw. verdoppelt sich in den 
anderen Bildschirmmodi. Bei der Berechnung der 
Textkoordinate ist der Sonderfall xg=640 zu 
beachten. Durch eine gesonderte Anweisung wird 
hier verhindert, daB der Text-Cursor die rechte 
Bildschirmbegrenzung iiberschreitet. 

190 Die y-Koordinaten "Grafik" und "Text" werden 

berechnet. Der Bildschirmmodus als Faktor spielt 
hier keine Rolle, da sich durch einen anderen 
Modus nur die Spaltenaufteilung des Bildschirms 
andert. Da sich der Nullpunkt der y-Koordinate 
einmal links oben und einmal links unten auf dem 
Bildschirm befindet, werden die bekannten Koor- 
dinaten jeweils vor und nach der Berechnung 
"umgepolt", d.h., aus der Textkoordinate 2 wird die 
Koordinate 24, um dann mit einfachen Mitteln die 
Grafikkoordinate zu berechnen. 


200-220 Ergebnisausgabe 
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230-240 Warten auf Taste mit Kommentarausgabe 

250 Der Bildschirmmodus wird gemaB der Eingabe in 

Zeile 90 gandert. 

260-280 Entsprechend der gewahlten oder berechneten 
Koordinaten werden ein Text-Cursorzeichen und 
ein Punkt gezeichnet. Die Farbe des Punktes 
unterscheidet sich dabei von der Farbe des Zei- 
chens. Da im Modus 2 dem dritten Farbstift die 
gleiche Farbe zugeordnet ist wie dem ersten 
(Standardfall), wird in diesem Fall f=2 und nicht 
f=3 gewahlt. 

290 Warten auf Taste, Loschen des Bildschirms und 

Programmende 


6.7 Balken- und Kuchendiagramme 

Viele Computer- oder Softwarehersteller werben mit Program- 
men, die ihre Ergebnisse grafisch in Form eines Balken- oder 
Kuchendiagramms darstellen. Diese Art der Darstellung sieht 
optisch nicht nur gut aus, sondern ist "ergonomisch" betrachtet 
auch durchaus sinnvoll. Zudem ist die Programmierung derarti- 
ger Diagramme, dank des ausgezeichneten Schneider-BASIC, 
auch gar nicht so kompliziert, wie Sie vielleicht denken mogen. 

Im folgenden finden Sie drei ausfuhrlich dokumentierte Pro¬ 
gramme, die Sie auch ohne weiteres in anderen Programmen als 
Unterprogramme verwenden konnen. Immer dann, wenn ent- 
sprechende Programmergebnisse anfallen, konnen Sie diese somit 
ohne groBen Programmieraufwand auch grafisch darstellen. Zu 
beachten dabei ist lediglich, dafl die hier per Tastatureingabe 
belegten Arrays "name$" und "wert", sowie die Variable "anzahl" 
vom Hauptprogramm aus belegt werden. 

Das erste Programm in diesem Kapitel erstellt ein Balkendia- 
gramm. In Abhangigkeit von den einzugebenden Datenwerten 
(maximal 10) werden die Balken mit Hilfe der Funktion 
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CHR$(143) 

gezeichnet. Dem grdBten Wert wird dabei ein Balken zugeordnet, 
der vom unteren bis zum oberen Bildschirmrand reicht. Bei den 
anderen Werten wird entsprechend verfahren. Die Bildschirm- 
groBe wird in vertikaler Richtung also immer - unabhangig von 
der GroBenordnung der Datenwerte - voll ausgeschdpft. 


10 REM Balkendiagramm 
20 CLS 

30 PRINT"Wie vide verschiedene Daten sollen be-" 

40 INPUT"ruecksichtigt werden (maximal 10) ";anzahl 
50 IF anzahl>10 OR anzahl<2 THEN 20 
60 PRINT:PRINT"Im folgenden koennen Sie fuer die" 

70 PRINT"Daten einen Namen (maximal 3 Zeichen) 

80 PRINT"und einen Zahlenwert eingeben":PRINT 

90 FOR i=1 TO anzahl 

100 INPUT"Name »;name$(i) 

110 IF LEN(name$(i))>3 THEN nameS(i)=LEFT$(name$(i),3) 

120 LOCATE 15,i+7:INPUT"Zahtenwert ";wert(i) 

130 IF wert(i)>wertmax THEN wertmax=wert(i) 

140 summe=summe+wert(i) 

150 NEXT i 

160 FOR i=1 TO anzahl 
170 wertreK i )=wert( i )*100/wertmax 
180 NEXT i 
190 CLS 

200 PLOT 10,17:DRAU 10,380 
210 PLOT 10,17:DRAW 640,17 
220 LOCATE 1,1:PRINT"%" 

230 FOR i=2 TO anzahl*4 STEP 4 
240 j=j+1 

250 IF j=10 AND LEN(name$(j))=3 THEN TAG:MOVE 585,14:PRINT 
name$(j);:TAGOFF:GOTO 280 

260 IF LEN(name$(j))=1 THEN LOCATE i+1,25 ELSE LOCATE i,25 
270 PRINT name$(j) 

280 x=R0UND(22*wertrel(j)/100) 

290 FOR 1=24 TO 24-x STEP -1 
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300 LOCATE i+1,l:PRINT CHR$(143) 

310 NEXT l 

320 LOCATE i,23-x:PRINT ROUND(wert(j)*100/summe) 
330 NEXT i 

340 a$=INKEY$:IF aJ^'" THEN 340 ELSE :CLS:END 


Variablenliste: 


a$ 

anzahl 

i 

j 

1 

name$(i) 

summe 

wert(i) 

wertmax 

wertrel(i) 

x 


String zur Wiedergabe der gedriickten Taste 

Anzahl der Werte 

Laufindex 

Laufindex 

Laufindex 

die Bezeichnungen der Daten 
Summe der Datenwerte 
die Datenwerte 
der Maximalwert 

die relativen Werte bezogen auf den Maximalwert 
Hilfsvariable zum Zeichnen der Balken 


Programmbeschreibung: 

10-20 Kommentar und Loschen des Bildschirms 

30-50 Belegung der Variablen "anzahl" 

60-80 Kommentarausgabe 

90-150 Eingabe der Daten und der dazugehorigen Namen. 

Hat ein Name mehr als drei Zeichen, werden nur 
die ersten drei beriicksichtigt (Satz 110). In den 
Zeilen 130-140 werden direkt der Maximalwert 
und die Summe der Werte berechnet. 

160-180 In dieser Programmschleife werden die relativen 

Werte bezogen auf den Maximalwert berechnet. 
Dabei handelt es sich um eine Prozentsatzberech- 
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nung mit dem Maximalwert (100%) als Grundwert 
(Prozentsatz = Prozentwert* 100/Grundwert). 

190-210 Loschen des Bildschirms und Zeichnen des Koor- 
dinatenkreuzes 

220 Beschriftung der y-Achse 

230-330 In dieser Programmschleife wird die x-Achse 

beschriftet, und die Balken werden gezeichnet. Der 
Laufindex i der Programmschleife zeigt dabei die 
Position des (Text-)Cursors in horizontaler Rich- 
tung an. An der 2. Position wird somit der erste 
Balken gezeichnet, an der 6. Position der zweite 
usw. Zur Kennzeichnung der Variablen "name$", 
"wert" und "wertrel" dient der Index j. Er wird bei 
jedem Schleifendurchlauf um 1 erhoht (Satz 240). 
In den Zeilen 250-270 wird die x-Achse mit den 
eingegebenen Namen beschriftet. In Zeile 260 wird 
gewahrleistet, daB ein Name, der nur aus einem 
Zeichen besteht, direkt unterhalb des Balkens auf- 
gefiihrt wird. Da bei der Eingabe von 10 Namen 
der letzte Name (sollte er aus drei Zeichen beste- 
hen) ein Scrollen des Bildschirms verursachen 
wiirde, wird seine Ausgabe ggf. in Zeile 250 mit 
Hilfe der Funktion TAG um ein Pixel nach links 
verschoben. In Zeile 280 wird die Hilfsvariable x 
in Abh&ngigkeit von "wertrel(j)" berechnet. Beim 
Maximalwert ist "wertrel" gleich 100. Dann ist auch 
x am groBten, namlich 22. Bei den iibrigen Werten 
ist x entsprechend kleiner. Aufgrund der vorzu- 
nehmenden Rundungen (fur x werden ganze Zah- 
len gebraucht) kann es vorkommen, daB leicht 
unterschiedlichen Werten gleich groBe Balken 
zugeordnet werden. Schauen Sie sich die Gleichung 
in Zeile 280 naher an, so werden Sie feststellen, 
daB sie der Prozentrechnung entnommen ist, nam¬ 
lich: Prozentwert = Grundwert*Prozentsatz/100. 
Dabei ist x gleich dem Prozentwert, 22 gleich dem 
Grundwert und "wertrel" gleich dem Prozentsatz. In 
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den Zeilen 290-310 werden nun die Balken mit der 
Funktion CHR$(143) gezeichnet. Zu beachten ist, 
da(3 der Schleifenendwert in Zeile 290 mit Hilfe 
der Hilfsvariablen x bestimmt wird. Vor dem Ende 
eines Schleifendurchlaufs in Zeile 330 werden in 
Zeile 320 die Prozentsatzwerte (mit "summe" als 
Grundwert) der einzelnen Balken ausgegeben. Auf 
die Angabe von Dezimalstellen wird verzichtet, da 
die Ausgabe oberhalb der jeweiligen Balken posi- 
tioniert wird. Sollten Sie auf diese Information 
verzichten wollen, so kdnnen Sie die Zeile 320 
streichen und fur den Grundwert in Zeile 280 die 
Zahl 23 einsetzen. 

340 Warteschleife (um ein Scrollen zu verhindern) und 

Programmende 


Sofern Sie sich mit den Grafikanweisungen Hires Rechners schon 
naher auseinandergesetzt haben, werden Sie mit Recht sagen, 
daB die Balken schdner und exakter dargestellt werden kfinnen. 
Dazu miissen wir auf die Verwendung der Funktion CHR$ ver¬ 
zichten und stattdessen mit den Grafikanweisungen MOVE, 
PLOT, DRAW und FILL arbeiten. Da wir dann in der Vertika- 
len nicht nur 25 Zeichen, sondern 200 Punkte setzen kbnnen, ist 
eine exaktere Balkendarstellung mOglich. Zudem lassen sich die 
Balken farblich ausgestalten, und auch eine dreidimensionale 
Darstellung ist leicht zu programmieren. 

Und so sieht die verbesserte Programmversion aus (die Pro- 
grammzeilen 10-220 sind hier nicht nochmals aufgefiihrt, da sie 
nicht verSndert wurden): 


230 FOR i=2 TO anzahl*4 STEP 4 
240 j=j+1 

250 IF j=10 AND LEN(name$(j))=3 THEN TAG:MOVE 585,14:PRINT 
name$(j);:GOTO 300 

260 IF LEN(name$(j))=1 THEN LOCATE i+1,25 ELSE LOCATE i,25 
270 PRINT name$(j) 

280 NEXT i 
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290 TAG 
300 j=0 

310 FOR i=29 TO 605 STEP 64 
320 j=j+1 

330 IF j>anzahl THEN 420 
340 x=ROUND(376*wertrel(j)/100) 

350 IF x<18 THEN x=18 

360 PLOT i,17:DRAW i,x:DRAW i+16,x:DRAW i+16,17 

370 PLOT i,x:DRAU i+6,x+6:DRAU i+22,x+6:DRAW i+16,x:M0VE 

i+22,x+6:DRAW i+22,17+6:DRAW i+16,17 

380 HOVE i+18,20:FILL 3:MOVE i+14,18:FILL 3:MOVE i+16,x+3:FILL 3 
390 MOVE i-16,x+22:PRINT ROUND(wert( j )*100/sufirne, 0); 

400 NEXT i 
410 TAGOFF 

420 a$=INKEYS:IF a$="" THEN 420 ELSE :CLS:END 


Wie Sie sehen, werden hier keine zusatzlichen Yariablen ge- 
braucht. Auch die Programmzeilen 230-270 sind, abgesehen von 
der Sprunganweisung in Zeile 250, nicht verSndert worden. 
Jedoch wird die in Zeile 230 erOffnete Schleife in Zeile 280 
bereits geschlossen, da bei 640 zur Verfiigung stehenden Pixeln 
der Index i, der auch hier die Position der Horizontalen 
bestimmt, andere Werte annehmen muB als bei 40 Zeichen. Die 
Zeilen 230-280 dienen somit lediglich der Beschriftung der x- 
Achse. Sodann wird der TAG-Befehl gesetzt, und j wird wieder 
mit der StartgrbBe 0 belegt, um dann anschlieBend ab Satz 310 
eine neue Schleife fur i zu bilden. Anfangs- und Endwert sowie 
die Schrittweite der Schleife sind so konstruiert, daB die Balken 
direkt oberhalb der zugehdrigen Namen gezeichnet werden. In 
Zeile 330 wird sodann gepriift, ob uberhaupt noch weitere Werte 
j existieren, da die Variable "anzahl" hier nicht in den Schleifen- 
endwert eingegangen ist. AnschlieBend wird die Hilfsvariable x 
mit dem ver&nderten Grundwert 376 (da jetzt 400 Pixel in der 
Vertikalen zur Verfiigung stehen) berechnet. Sollte x kleiner als 
18 sein, wird x gleich 18 gesetzt, um zumindest einen kleinen 
Balken zeichnen zu kOnnen. Dies ist aufgrund der FILL- 
Anweisungen in Zeile 380 notwendig, da ansonsten der gesamte 
Bildschirm ausgefiillt wird. 
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In Zeile 360 wird nun der vordere Teil des Balkens gezeichnet. 
In Zeile 370 folgt aufgrund der dreidimensionalen Darstellung 
das Ober- und das rechte Seitenteil. Der so gezeichnete Balken 
hat somit drei voneinander getrennte Teile. Dies macht es erfor- 
derlich, dal3 die farbliche Ausfiillung in Zeile 380 fur jeden Teil 
getrennt erfolgen muB. In Zeile 390 wird dann der Grafik-Cur- 
sor oberhalb des gezeichneten Balkens positioniert, und der 
gerundete Prozentsatz (mit der "summe" als Grundwert) wird 
ausgegeben. Danach ist das Ende der Schleife erreicht. Der 
TAG-Befehl wird noch aufgehoben, und das Programm wird 
beendet. 

Auch mit einem Kuchendiagramm konnen Sie gute optische 
Effekte erzielen. Von einem Kreis ausgehend, werden den ein- 
gegebenen Daten "Kuchenstucke" zugeordnet. Die GroBe eines 
Stuckes richtet sich nach der relativen GroBe des jeweiligen 
Datenwertes. Einige grundsatzliche Uberlegungen zu den Bal- 
ken-Programmen konnen hier ubernommen werden. Zu beachten 
ist jedoch, daB nur ein Kuchen zu verteilen ist, d.h., es ist mit 
neuen relativen Werten zu arbeiten. Weiterhin ist die eigentliche 
Erstellung der Grafik natiirlich ganz anders als bei den letzten 
Programmen. 


10 REM Kuchendiagramm 
20 CLS 

30 PRINT"Wie viele verschiedene Daten sollen be-" 

40 INPUT"ruecksichtigt werden (maximal 10) ";anzahl 
50 IF anzahl>10 OR anzahl<2 THEN 20 
60 PRINT:PRINT"Im folgenden koennen Sie fuer die" 

70 PRINT"Daten einen Namen (maximal 3 Zeichen) 

80 PRINT"und einen Zahlenwert eingeben":PRINT 

90 FOR i=1 TO anzahl 

100 INPUT"Name ";name$(i) 

110 IF LEN(name$(i))>3 THEN name$(i)=LEFT$(name$(i),3) 
120 LOCATE 15,i+7:INPUT"Zahlenwert ";wert(i) 

130 summe=summe+wert(i) 

140 NEXT i 

150 FOR i=1 TO anzahl 

160 wert360(i)=wert(i)*360/summe+wert360(i-1) 
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170 NEXT i 

180 MODE 2:DEG 

190 FOR i=1 TO 360 

200 MOVE 320,200 

210 PLOTR 150*COS(i),150*SIN(i) 

220 NEXT i 
230 TAG 

240 FOR i=1 TO anzahl 
250 MOVE 320,200 

260 DRAWR 150*COS(wert360(i)),150*SIN(wert360(i)) 

270 k=(wert360(i-1)+wert360(i))/2 
280 MOVE 320+15 0*COS(k),200+150* SIN(k) 

290 DRAWR 15*COS(k),15*SIN(k) 

300 t$=name$(i)+STR$(ROUND(wert(i)*100/summe,2))+"%" 
310 IF COS(k)>0 THEN MOVER 0,8:GOTO 330 
320 MOVER -8*LEN(t$),8 
330 PRINT t$; 

340 NEXT i 

350 a$=INKEYS:IF a$= M " THEN 350 
360 MODE 1:END 


Variablenliste: 

a$ 

String zur Wiedergabe der gedruckten Taste 

anzahl 

Anzahl der Werte 

i 

Laufindex 

k 

Hilfsvariable 

name$(i) 

die Bezeichnungen der Daten 

summe 

Summe der Datenwerte 

t$ 

Kuchenstuckbezeichnung (Name+Prozentsatz) 

wert(i) 

die Datenwerte 

wert360(i) 

die relativen Werte 





Programmbeschreibung: 

10-140 Dieser Programmteil ist identisch mit den Satzen 
10-150 des Balken-Programms. Nur auf die 
Bestimmung des maximalen Eingabewertes kann 
hier verzichtet werden. Es besteht hier keine drin- 
gende Notwendigkeit, die Anzahl der Eingaben auf 
10 zu beschranken. Diese Einschrankung ist ledig- 
lich aus Griinden der Ubersichtlichkeit beibehalten 
worden. 


150-170 Die relativen Werte werden berechnet. Dabei han- 
delt es sich quasi um eine Prozentsatzberechnung, 
nur daB die Basis nicht 100, sondern 360 ist, da ein 
Kreis bekanntlich ein Vollwinkel mit 360 Grad ist. 
AuBerdem wird der vorangegangene relative Wert 
("wert360(i-l)") hinzuaddiert, da die einzelnen 
Kuchenstiicke spater nicht relativ zum vorangegan- 
genen, sondern immer von einem Ausgangspunkt 
aus gezeichnet werden. 

180 Anderung des Bildschirmmodus* und Umschaltung 

auf WinkelgradmaB, da die Werte der trigonome- 
trischen Funktionen standardmSBig als BogenmaB 
ausgegeben werden. 

190-220 Mit Hilfe der trigonometrischen Funktionen SIN 
und COS wird ein Kreis gezeichnet. Zeile 200 
dient der Positionierung des Kreises in der Mitte 
des Bildschirms. Relativ zu diesem Mittelpunkt 
werden die einzelnen Kreispunkte geplottet. Der 
Radius des Kreises wird durch die Zahl 150 in Satz 
210 festgelegt. 

230 Der TAG-Befehl zur Vermischung von Text und 

Grafik wird gesetzt. 

240-340 In dieser Programmschleife werden die Kuchen- 
stucke eingezeichnet. In Satz 250 wird der Grafik- 
Cursor in die Kreismitte gesetzt. AnschlieBend 
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wird in Abhangigkeit von dem relativen Wert 
"wert360(i)" ein Punkt auf dem Kreis berechnet, 
und eine Linie wird von der Kreismitte zu diesem 
Punkt gezeichnet. In Zeile 270 wird die HilfsgroBe 
k berechnet. Sie dient der Berechnung des halben 
Kreisbogens eines Kuchenstiickes. Zu dieser Koor- 
dinate wird der Grafik-Cursor in Zeile 280 
bewegt, um dann anschlieBend in Satz 290 eine 
kurze Linie senkrecht zum Kreisbogen zeichnen zu 
konnen. Am Ende dieser Linie wird in Satz 330 
das Kuchenstiick benannt. Dazu wird in Zeile 300 
die Variable t$ gebildet, die sich aus dem eingege- 
benen Namen und dem prozentualen Anteil eines 
Stiickes am gesamten Kuchen zusammensetzt. Vor 
der Ausgabe von t$ wird der Grafik-Cursor noch 
um 8 Pixel nach oben versetzt, da die linke obere 
Ecke des Textzeichens auf dem Grafik-Cursor 
liegt. Falls sich die Kreisbogen-Mitte eines 
Kuchenstiickes links vom Kreismittelpunkt befin- 
det (dann ist COS(k)<0), wird der Grafik-Cursor 
zusatzlich noch um die Lange von t$ nach links 
verschoben (Satz 320). Um diese Langenbestim- 
mung durchfiihren zu konnen, muBte in Satz 300 
der Prozentsatz als String aufgefaBt werden (siehe 
die Funktion STR$). 

350-360 Warten auf Taste, Anderung des Bildschirmmodus 1 
und Programmende. 


Da das Kuchendiagramm im MODE 2 ausgegeben wird (nicht 
zuletzt deshalb, weil die Strings t$ im 40-Zeichen-Modus auf- 
grund ihrer GroBe den gesamten Bildschirmaufbau beeintrachti- 
gen wiirden), ist es nicht moglich, mit Farben zu arbeiten. Auf 
Wunsch konnen Sie dies natiirlich selbst andern. Dann miissen 
Sie nur beachten, daB die Textzeichen in einer Breite von 16 
Pixeln dargestellt werden. Zu beachten ist weiterhin, daB vor 
dem Programmstart der Ursprung des Grafik-Cursors mit 
ORIGIN nicht geandert wird. Dies gilt im iibrigen auch fur die 
beiden vorangegangenen Balken-Programme. 
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6.8 Funktionenplotter 

Wie wir im letzten Kapitel erfahren haben, spielen mathemati- 
sche Funktionen eine nicht unerhebliche Rolle. Dort haben wir 
die trigonometrischen Funktionen SIN und COS benutzt, um 
einen Kreis zu zeichnen. Diese Funktionen sind, genauso wie 
LOG, EXP oder SQR, fest in BASIC eingebaut. Mit dem Befehl 
DEF FN konnen Sie aber auch beliebige Funktionen definieren. 
Benotigen Sie zum Beispiel im Programmablauf die einfache 
Funktion y=19*x-7, so konnen Sie den y-Wert fur alternative x- 
Werte berechnen, indem Sie bei Bedarf in ein Unterprogramm 
springen: 

1000 y=19*x-7:RETURN 

Einfacher und schneller geht es jedoch, wenn Sie zu Beginn des 
Programms eingeben: 

30 DEF FN f(x)=19*x-7 

Mit FN f(i) erhalten Sie dann den entsprechenden Funktionswert 
fur beliebige Werte i. 

Viele mathematische Probleme lassen sich ldsen, wenn man eine 
so definierte Funktion grafisch darstellen kann. Insbesondere bei 
komplizierteren Funktionen ist es sehr aufwendig, ohne Rech- 
nerunterstiitzung einen Uberblick uber den Funktionsverlauf zu 
gewinnen. Aber auch wenn es zum Beispiel in der Schule darum 
geht, eine Kurvendiskussion durchzufiihren, bietet ein 
Funktionenplotter eine ausgezeichnete Kontrollmoglichkeit. 

Im folgenden finden Sie ein Programm, das Ihnen ermoglicht, in 
Zeile 30 eine Funktion einzutragen, die dann nach Eingabe eines 
x-Bereiches gezeichnet wird. Als Beispiel ist hier die relativ 
bekannte Funktion SIN(x) vorgegeben. Es sei noch einmal 
betont, dafi Sie die Zeile 30 andern miissen, um eine andere 
Funktion zu zeichnen. 
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10 REM Funktionenplotter 
20 CLS 

30 DEF FN f(x)=SIN(x) 

40 PRINT"Eine Aenderung der Programmzeile 30" 

50 PRINT"erlaubt es, beliebige Funktionen zu be-" 

60 PRINT"trachten.":PRINT:PRINT:PRINT 
70 PRINT"Geben Sie den kleinsten und den groess-" 

80 PRINT"ten zu beruecksichtigenden X-Wert an:":PRINT:PRINT 

90 INPUT"Kleinster X-Uert ";kw:PRINT 

100 INPUT"Groesster X-Wert ";gw 

110 IF gw<=kw THEN CLS:G0T0 40 

120 sw=(gw-kw)/640 

130 REM Koordinatenkreuz zeichnen 

140 MODE 2 

150 PLOT 0,400:DRAU 0,0:PLOT 0,200:DRAW 640,200 
160 LOCATE 2,14:PR I NT kw 

170 gw$=STR$(gw):LOCATE 80-LEN(gw$),14:PR I NT gw 

180 REM Bestimmung des maximalen und minimalen Funktionswertes 

190 mif=FN f(kw):maf=mif 

200 FOR i=kw TO gw STEP sw*10 

210 IF FN f(i)<mif THEN mif=FN f(i) 

220 IF FN f(i)>maf THEN maf=FN f(i) 

230 NEXT i 

240 REM Die berechneten Funktionswerte werden fuer die 
BiIdschirmausgabe relativiert 

250 IF ABS(maf)>A8S(mif) THEN rf=200/maf:LOCATE 2,1:PRINT 
ROUND(maf,2):GOTO 280 

260 rf=-200/mif:LOCATE 2,25:PRINT ROUND(mif,2) 

270 REM Zeichnen der Kurve 
280 FOR i=kw TO gw STEP sw 
290 j=j+1:PLOT j,FN f(i)*rf+199 
300 NEXT i 

310 x$=INKEY$:IF x$="" THEN 310 
320 MODE 1:END 
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Variablenliste: 

gw groBter x-Wert 

gw$ gw‘ als String 

i Laufindex 

j x-Koordinate (Grafikbereich) zum Zeichnen der 

Kurve 

kw kleinster x-Wert 

maf maximaler Funktionswert 

mif minimaler Funktionswert 

rf relativer Faktor (bezogen auf die BildschirmgrdBe) 

sw Schrittweite 

x$ String, der den Wert der gedriickte Taste wieder- 

gibt 


Programmbeschreibung: 

10-20 Kommentar und Loschen des Bildschirms 

30 Die Funktion wird definiert. 

40-60 Ausgabe eines Kommentars zu Zeile 30 

70-110 Eingabe des kleinsten und des groBten x-Wertes. 

Dabei wird in Zeile 110 sichergestellt, daB der 
groBte Wert auch groBer ist als der kleinste Wert. 

120 Da fur die zu zeichnende Kurve insgesamt 640 

verschiedene Funktionswerte geplottet werden k6n- 
nen, ist es notwendig, den x-Bereich durch 640 zu 
dividieren. Mit diesem Wert wird die Variable sw 
belegt. 

130-170 Nach einer Anderung des Bildschirmmodus wird 
das Koordinatenkreuz gezeichnet (Satz 150) und 
die x-Achse beschriftet (Zeile 160-170). Dabei 
wird in Zeile 170 gewahrleistet, daB der groBte x- 
Wert, unabhangig von seiner "Lange", am rechten 
Ende der x-Achse ausgegeben wird. 
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180-230 Der kleinste und der groBte Funktionswert be- 
stimmt. Zunachst werden die entsprechenden 
Variablen mif und maf in Zeile 190 mit einem 
Startwert belegt. Dieser Startwert kann prinzipiell 
jeder beliebige Funktionswert des angegebenen x- 
Bereiches sein. AnschlieBend wird in einer Schleife 
(Zeile 200-230) jeder Funktionswert mit mif bzw. 
maf verglichen. Immer dann, wenn ein Funktions¬ 
wert kleiner bzw. groBer als mif bzw. maf ist, 
werden mif bzw. maf mit diesem Funktionswert 
belegt. Die Schrittweite dieser Schleife ist sw*10. 
Es ist auch moglich, nur sw als Schrittweite einzu- 
setzen. Sie erhalten dann genauere Ergebnisse fur 
mif und maf, jedoch verlangert sich dann auch die 
Rechenzeit. 

240-260 Da in der Vertikalen nur 400 Pixel zur Verfugung 
stehen, mussen die Funktionswerte fur die Bild- 
schirmausgabe relativiert werden. Dazu wird 
gepriift, ob mif Oder maf absolut (also ohne 
Beriicksichtigung des Vorzeichens) groBer ist. Der 
groBere Wert geht dann in die Berechnung des 
Faktors rf ein. Mit diesem absolut groBeren Wert 
wird dann auch die y-Achse beschriftet. 

270-300 In der Programmschleife (Satz 280-300) wird die 
Kurve geplottet. Aufgrund der Berechnung von sw 
in Zeile 120 lauft j hier von 1 bis 640. Der Faktor 
rf gewShrleistet, daB der absolut grdBte Wert am 
oberen bzw. unteren Bildschirmrand geplottet wird. 
UnabhSngig von der Gr|Be der Funktionswerte 
wird somit der gesamte Bildschirm ausgefiillt. 

310-320 "Warten", Anderung des Bildschirmmodus 1 und 
Programmende 


Sollte die eingegebene Funktion auch bei kleinen Anderungen 
des x-Wertes groBe Unterschiede im Funktionswert aufweisen. 
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ist es optisch schoner, nicht mit dem PLOT-, sondern mit dem 
DRAW-Befehl zu arbeiten. Die Programmzeile 290 sahe dann 
wie folgt aus: 

290 j=j+l:DRAW j,FN f(i)*rf+199 

Zusatzlich miiBte dann noch der Grafik-Cursor in eine Aus- 
gangsposition gebracht werden: 

280 PLOT 0,FN f(kw)*rf+199 
285 FOR i=kw TO gw STEP sw 

Aufgrund der Sprunganweisung in Zeile 250 kann fur die 
zusatzliche PLOT-Anweisung nicht die Zeilennummer 275 
gewahlt werden. 

Nach dieser Programmanderung konnen Sie mit der SIN-Funk- 
tion sehr schone grafische Effekte erzielen, wenn Sie einen sehr 
weiten x-Bereich wahlen. Lassen Sie das Programm dann doch 
mal fiir den x-Bereich -500 bis 500 laufen... 

Falls Sie genauere Angaben zum Funktionsverlauf haben wollen, 
konnen Sie zum Beispiel in Zeile 210 und 220 zwei zusatzliche 
Variablen mit dem x-Wert der Extremstellen (mif und maf) 
belegen und sich diese Information auch ausgeben lassen: 

210 IF FN f<i)<mif THEN mif=FN f(i):xmif=i 
220 IF FN f(i)>maf THEN maf=FN f(i):xmaf=i 

314 LOCATE 1,3 

315 PRINfMaximum bei x =";xmaf: PR I NT 

316 PRINT"Mim'mum bei x =";xmif 

317 x$=INKEY$:IF x$="" THEN 317 

Naturlich sollten Sie dann in Zeile 200 auch mit der Schrittweite 
sw und nicht mit sw*10 arbeiten, um genaue Ergebnisse zu 
erzielen. 

Weiterhin ist bei der Betrachtung eines Funktionsverlaufes die 
Stelle(n) interessant, an der die Funktion die x-Achse kreuzt 
(Nullstelle). Wenn Sie auch da genauere Werte haben wollen 
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(eine ungefahre Angabe konnen Sie der Zeichnung entnehmen), 
mussen Sie zus&tzliche Anweisungen in den Programmteil Satz 
180-230 einbauen. Dies soli jedoch Ihnen als Denksportaufgabe 
uberlassen werden. Ein Tip: Die Funktion schneidet genau dann 
die x-Achse, wenn sich das Vorzeichen der Funktionswerte 
andert. 


6.9 Dreidimensionale Grafiken 

Der Bildschirm ist quasi eine Ebene mit zwei Dimensionen 
(Lange und Breite). Wenn Sie somit raumliche Gebilde zeichnen 
wollen, mussen Sie sich uberlegen, wie Sie die dritte Dimension 
optisch vort&uschen konnen. Dazu werden in diesem Kapitel drei 
unterschiedliche Vorschliige gemacht. 

Schon im letzten Kapitel haben wir gesehen, wie man mit Hilfe 
der Sinusfunktion interessante grafische Effekte erzielen kann. 
Hier wollen wir die Sinusfunktion nutzen, um die dritte Dimen¬ 
sion vorzutauschen. Das Prinzip ist ganz einfach: Es wird eine 
Sinusfunktion gezeichnet, jedoch nicht mit Punkten, sondern mit 
Linien von einem Punkt (0,200) zum aktuellen Punkt der Sinus- 
kurve. Die optische Tauschung entsteht dann durch die Uberla- 
gerung der Linien. 

Das Programm dazu baut auf den Funktionenplotter des letzten 
Kapitels auf. Sie haben somit die Moglichkeit, auch andere 
Funktionen auf Uberlagerungseffekte hin zu untersuchen. 

Und so sieht das Programm "Grafik mit Funktionen" aus: 

10 REM Graphik mit Funktionen 
20 CLS 

30 DEF FN f(x)=SIN(x) 

40 PRINT"Eine Aenderung der Programmzeile 30" 

50 PRINT"erlaubt es, beliebige Funktionen zu be-" 

60 PRINT"trachten.":PRINT:PR I NT:PR I NT 
70 PRINT"Geben Sie den kleinsten und den groess-" 

80 PRINT"ten zu beruecksichtigenden X-Wert an:":PRINT:PRINT 
90 INPUT"Kleinster X-Wert ";kw:PRINT 
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100 INPUT"Groesster X-Wert ";gw:PRINT:PRINT:PRINT 
110 IF gw<=kw THEN ClS:GOTO 40 
120 sw=(gw-kw)/640 

130 PRINT"Geben Sie bitte einen Wert fuer die" 

140 PRINT"Dichte der Graphiklinien an (pos. Wert," 

150 PRINT"je kleiner desto dichter sind die" 

160 INPUT"Linien) ";z 

170 MODE 2 

180 ORIGIN 0,200 

190 mif=FN f(kw):maf=mif 

200 FOR i=kw TO gw STEP sw*10 

210 IF FN f(i)<mif THEN mif=FN f(i) 

220 IF FN f(i)>maf THEN maf=FN f(i) 

230 NEXT i 

240 IF ABS(maf)>ABS(mif) THEN rf=200/maf ELSE rf=-200/mif 

250 EVERY z GOSUB 310 

260 FOR i=kw TO gw STEP sw 

270 j=j+1:MOVE j,FN f(i)*rf-1 

280 NEXT i 

290 x$=INKEYS:IF x$="" THEN 290 

300 MODE 1:END 

310 DRAW 0,0:RETURN 


Wie Sie sehen, wird bei diesem Programm kein Koordinaten- 
kreuz benotigt. Weiterhin wird der Ursprung des Grafik-Cursors 
auf den Punkt 0,200 gesetzt (Satz 180), und die Punkte der 
Kurve werden nicht geplottet (Satz 270). 

Neu an diesem Programm sind die Zeilen 130-160, 250 und 310. 
In Abhangigkeit von einer Zeitvariablen z, die in den Satzen 
130-160 belegt wird, erfolgt in Zeile 250 ein Unterprogramm- 
aufruf (Satz 310). In diesem Unterprogramm wird von der aktu- 
ellen Grafik-Cursor-Position (Satz 270) eine Linie zum Grafik- 
Ursprung gezogen. Es sei daran erinnert, daB dieser zeitabhan- 
gige Vorgang vom Ablauf des Hauptprogramms unabhangig ist 
(siehe dazu auch Kapitel 3.6). 

Am besten probieren Sie das Programm direkt einmal aus. Viel- 
leicht beginnen Sie mit dem x-Bereich 0 bis 6 und einem 
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"Dichtewert" von 10. Sie werden dann eine Art F&cher erkennen 
konnen. Danach kdnnen Sie auch ruhig einmal die DRAW- 
Anweisung in Zeile 310 Oder die Funktion in Zeile 30 andern. 
Viele interessante Effekte sind so mdglich. 

Eine weitere Mdglichkeit, pseudodreidimensionale Grafiken 
darzustellen, besteht darin, mit unterschiedlichen Schraffuren zu 
arbeiten. Das folgende Programm erstellt eine Zeichnung, aus 
der Sie viele Bilder erkennen kdnnen, ein Spinnennetz Oder eine 
Pyramide von oben oder... 


10 REM Pseudodreidimensionale Graphik 
20 INPUT"1. Schrittweite ";s1 
30 INPUT"2. Schrittweite ";s2 
40 CLS 

50 ORIGIN 320,200 
60 FOR i=0 TO 190 STEP si 
70 PLOT i,j:DRAW i,-j 
80 PLOT -i,j:DRAW -i,-j 
90 PLOT i,j:DRAW -i.j 
100 PLOT -i,-j:DRAW i,-j 
110 j=j+s2 
120 NEXT i 

130 x$=INKEY$: I F x$= ,,, ‘ THEN 130 
140 CLS:END 


Die Dichte der parallelen Striche ist abhangig von der Wahl der 
Schrittweiten. Versuchen Sie selbst einmal, die GroBe der Para¬ 
meter der PLOT- und DRAW-Anweisungen nachzuvollziehen. 
Es ist diesmal wirklich nicht schwierig. Aber experimentieren 
Sie bitte mit dem Programm. Zum Beispiel kdnnen Sie die Zeile 
60 umandern in: 

30 FOR i= 190 TO 0 STEP -1 
Sie erhalten dann ein ganz anderes Bild. 
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In einer dritten Anschauungsgrafik wird ein Quader dargestellt, 
so wie Sie ihn in der Geometrie kennengelernt haben. Dieser 
Quader wird aber nicht nur einmal, sondern mehrmals von 
verschiedenen Seiten gezeichnet. Wiihrend die Vorder- bzw. 
Ruckseite des Quaders feststeht, andern sich die anderen Seiten 
fortdauernd. Am besten Sie schauen sich das Programmergebnis 
selbst einmal an (der Grafik-Ursprung muB vor dem 
Programmstart bei Punkt 0,0 liegen). 


10 REM Quader 
20 CLS 

30 s1=98:s2=-98:sw=-4:fk=1 
40 FOR a=s1 TO s2 STEP sw 
50 PLOT 200,100,1 

60 DRAU 200,300,1:DRAU 400,300,1:DRAW 400,100,1:DRAW 200,100,1 
70 b=(98-ABS(a))*fk 

80 PLOT 200,300,f:DRAUR b,a,f:DRAWR 200,0,f 
90 PLOT 400,300,f:DRAWR b,a,f:DRAWR 0,-200,f 
100 PLOT 400,100,f:DRAWR b,a,f:DRAWR -200,0 
110 PLOT 200,100,f:DRAWR b,a,f:DRAUR 0,200 
120 FOR i=1 TO 200:NEXT i 
130 IF f=1 THEN f=0:GOTO 80 
140 f=1:NEXT a 

150 s1=-s1:s2=-s2:sw=-sw:fk=-fk:GOTO 40 


Vielleicht erinnert Sie diese Darstellung an eine technische 
Zeichnung, vielleicht wird Ihnen beim Anblick auch ganz 
einfach nur schwindelig. Auf jeden Fall liegt auch hier ein drei- 
dimensionaler Effekt vor. 

Die einzelnen Programmanweisungen konnen Sie wahrscheinlich 
auch selbst nachvollziehen. Dennoch sollen auch hier einige 
Erlauterungen nicht fehlen: 

Die feststehende Vorder- bzw. Ruckseite wird jeweils in den 
Zeilen 50-60 erstellt, wahrend die dritte Dimension in den Zei- 
len 80-110 gezeichnet wird. Die Angabe des Farbstiftes f in den 
Zeilen 80-110 dient der Ldschung der gezeichneten dritten 
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Dimension, um eine fortdauernde Darstellung zu erhalten (siehe 
Zeile 130). Die Geschwindigkeit der Darstellung wird durch den 
Endwert der Warteschleife in Zeile 120 bestimmt. Diesen End- 
wert konnen Sie natiirlich beliebig andern. Die Parameter a und 
b der PLOT- und DRAW-Anweisungen ergeben in ihrer abso- 
luten Summe immer 98 (siehe Zeile 70), um eine rechtwinklige 
Darstellung zu gewahrleisten (siehe auch die Belegung der 
Variablen si und s2 in Zeile 30). Die Variable fk hat die Funk- 
tion, die dritte Dimension auch links von der feststehenden Seite 
zu zeichnen (nach 180 Grad). Wie auch Anfangs-, Endwert und 
Schrittweite der Programmschleife, Satz 40 bis 140, Sndert die 
Variable fk ihr Vorzeichen nach jedem Schleifendurchlauf (siehe 
Satz 150). Jeder Schleifendurchlauf bezieht sich somit entweder 
auf die rechte Oder auf die linke Seite. Die Schrittweite der Pro¬ 
grammschleife sw kdnnen Sie natiirlich auch andern. Sie bleiben 
also wiederum aufgefordert, die eine Oder andere ProgrammSn- 
derung selbst vorzunehmen. 


6.10 Joystick und Spiele 

Computerspiele leben von einer leistungsfahigen Grafik. Da die 
Grafik Ihres CPC 6128 wirklich zur Spitzenklasse gehdrt, 
kbnnen Sie mit vergleichsweise einfachen Mitteln (der Vergleich 
bezieht sich auf die POKE-Orgien bei anderen Rechnern) sehr 
schbne Spiele programmieren. 

Bei vielen Computerspielen hangt der Spielerfolg von der 
schnellen Reaktion des Spielers ab. Dabei ist die Tastatur Ihres 
Rechners haufig uberfordert Oder zumindest benutzerunfreund- 
lich. Hingegen ist mit einem Joystick eine erheblich schnellere 
Reaktion mbglich. Der Joystick ist ein Steuerkniippel, der aus 
einem Griff und einem ‘Feuer‘-Knopf besteht. Wahrend der 
Griff zur Steuerung eines Symbols (zum Beispiel ein Ball Oder 
ein MSnnchen oder ein Hindernis Oder...) gedacht ist, dient der 
‘Feuer‘-Knopf meistens der ‘SchuBabgabe. 

An Ihren CPC konnen Sie bis zu zwei Joysticks anschlieBen. Die 
einzelnen Funktionen des Joysticks konnen Sie entweder mit 
INKEY bzw. INKEYS abfragen (Joysticks werden also wie ein 
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Teil der Tastatur behandelt), Oder Sie benutzen die Funktionen 
JOY(O) und JOY(l) fur eine Zustandsiiberprufung. Das Argu¬ 
ment 0 dieser Funktion steht dabei fur den ersten Joystick und 
das Argument 1 fur den zweiten. 

Im folgenden wollen wir uns der Einfachheit halber nur mit 
einem Joystick beschaftigen. Jedoch gelten die nun folgenden 
Ausfuhrungen prinzipiell auch fur den zweiten Joystick. 

Um die Funktionsweise des Joysticks zu verstehen, geben Sie 
doch einmal, nachdem Sie einen Joystick angeschlossen haben, 
folgendes Programmchen ein: 

10 PRINT JOY(O) 

20 GOTO 10 

Wenn Sie jetzt Ihren Joystick bewegen oder den ‘Feuer‘-Knopf 
betatigen, werden Sie jeweils eine Anderung der wiedergegebe- 
nen Zahl beobachten konnen. Bewegen Sie den Joystick-Griff 
zum Beispiel nach oben (aufwarts), so wird die Zahl 1 ausgege- 
ben. 

Die von der Funktion JOY zuriickgegebene Zahl ist Bit-signifi- 
kant. Ohne an dieser Stelle ausfiihrlich auf Bits und Bytes ein- 
zugehen (siehe dazu Kapitel 4.5), sei hier nur kurz angemerkt, 
da(3 fur jede mit dem Joystick durchfiihrbare Aktion ein Bit mit 
folgender Bedeutung vorhanden ist: 


Bit Dezimalwert Bedeutung 


0 

1 

2 

3 

4 

5 


1 

2 

4 

8 

16 

32 


aufwarts 
abwarts 
links 
rechts 
Feuer 2 
Feuer 1 


Bewegen Sie beispielsweise den Joystick-Griff schrag nach 
links-oben, so gibt Ihnen JOY den Dezimalwert 5 zuriick. Sie 
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konnen also durch eine einfache Addition der entsprechenden 
Werte auch Funktionskombinationen des Joysticks identifizieren. 
Die einzelnen Werte sind dabei jeweils Potenzen von 2. Zum 
Beispiel ist der Wert 1 gleich 2 A 0, der Wert 2 gleich 2 A 1 usw. 1st 
in einem Dezimalwert eine Potenz von 2 vorhanden, so heiBt 
das, daB das entsprechende Bit gesetzt ist. Zum Beispiel sind in 
der Dezimalzahl 10 die Potenzen 2 A 3 und 2 A 1 vorhanden, d.h., 
daB das erste (abwSrts) und dritte (rechts) Bit gesetzt wurden. 
Die zugehdrige Bin£rzahl lautet: 001010 (die beiden vorange- 
stellten Nullen machen deutlich, daB insgesamt 6 Bits gesetzt 
werden). 

Diese binSre Darstellung kommt Ihnen zugute, wenn Sie die 
"Joy-Programmierung" optimieren wollen. Darauf werden wir am 
Ende dieses Kapitels noch zuriickkommen. 

Zunachst soil Ihnen aber ein Beispielprogramm vorgestellt wer¬ 
den. Nach dem Start dieses Programms kdnnen Sie ein kleines 
Mannchen mit dem Joystick iiber den Bildschirm bewegen. Zur 
Darstellung dieses Mannchens wahlen wir den CHR$(249) (bzw. 
CHR$(251) wenn sich das Mannchen nach links bewegt und 
CHR$(250) wenn sich das Mannchen nach rechts bewegt). Und 
so sieht das Programm aus: 


10 REM Joystick-Maennchen 
20 x1=39:y1=12 
30 MODE 2 

40 IF JOY(0}=1 AND y1>1 THEN LOCATE x1,y1:PRINT" ":y1=y1-1:LOCATE 
xl,y1:FRAME:PRINT CHR$<249) 

50 IF JOY(0)=2 AND y1<25 THEN LOCATE ... 

LOCATE x1,y1:FRAME:PRINT CHR$(249) 

60 IF JOY(0)=4 AND x1>2 THEN LOCATE xl,y1:PRINT" ":x1=x1•1:LOCATE 
x1,y1:FRAME:PRINT CHR$(250) 

70 IF JOY(0)=8 AND x1<78 THEN LOCATE xl.yl:PRINT" ":x1=x1+1: 
LOCATE xl,y1:FRAME:PRINT CHR$(251) 

80 IF JOY(0)=5 AND y1>1 AND x1>2 THEN LOCATE x1,y1:PRINT" 
x1=x1•1:y1=y1•1:LOCATE xl,y1:FRAME: PRINT CHR$(250) 

90 IF JOY(0)=9 AND y1>1 AND x1<78 THEN LOCATE x1,y1:PRINT" 
x1=x1+1:y1=y1•1:LOCATE x1,y1:FRAME: PRINT CHR$(251) 
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100 IF JOY(0)=6 AND yl<25 AND x1>2 THEN LOCATE .. 

x1=x1•1:y1=y1+1:L0CATE xl,y1:FRAME: PRINT CHR$(250) 

110 IF JOY(0)=10 AND y1<25 AND x1<78 THEN LOCATE .. 

Xl=x1+I:y1=y1+1:L0CATE Xl,y1:FRAME: PRINT CHR$(251) 

120 GOTO 40 


Nach der Belegung der Koordinaten xl und yl mit Startwerten 
(Zeile 20) und der Umschaltung auf den 80-Zeichen-Modus 
(Zeile 30) wird in den Zeilen 40 bis 110 der Joystick abgefragt. 
Diese Abfrage vollzieht sich prinzipiell genauso wie die Tasta- 
turabfrage mit INKEY und INKEY$. Aufgrund der Sprungan- 
weisung in Zeile 120 wird diese Zustandsiiberprufung des Joy¬ 
sticks und die damit verbundene Bewegung des Mannchens 
solange fortgesetzt, bis die ESC-Taste zweimal gedruckt wird. 

Jede Joystickabfrage ist mit einer entsprechenden Koordinaten- 
uberpriifung verbunden. Wenn zum Beispiel bei JOY(0)=4 das 
Mannchen nach links bewegt wird, muB gewahrleistet werden, 
daB die x-Koordinate des LOCATE-Befehls zur Positionierung 
des Mannchens nicht gleich 0 wird, da dies eine Fehlermeldung 
zur Folge hatte. Die Koordinateniiberprufung ist also jeweils von 
der Bewegungsrichtung abhangig. Ansonsten ist das Prinzip die¬ 
ses Programms ganz einfach. Nachdem ein in den Zeilen 40 bis 
110 aufgefiihrter Wert fur JOY empfangen worden ist und das 
Mannchen nicht den Bildschirm zu verlassen droht 
(Koordinateniiberprufung), wird das aktuell auf dem Bildschirm 
vorhandene Mannchen mit Hilfe eines Leerstrings gelbscht. 
AnschlieBend werden die Koordinaten neu bestimmt, und das 
Mannchen erscheint an genau dieser Position. Danach setzt sich 
die Abfrage fort. Aufgrund des schnellen Programmablaufs ent- 
steht dann der Eindruck der Bewegung. In Kapitel 6.4 ist dieses 
Prinzip ja schon einmal vorgestellt worden. 

Im einzelnen lassen sich die folgenden Bewegungsrichtungen 
unterscheiden: 
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Zeile 

40 

Zeile 

50 

Zeile 

60 

Zeile 

70 

Zeile 

80 

Zeile 

90 

Zeile 

100 

Zeile 

110 


aufwSrts 

abwarts 

links 

rechts 

diagonal nach links oben 
diagonal nach rechts oben 
diagonal nach links unten 
diagonal nach rechts unten 


Starten Sie das Programm, so werden Sie feststellen, daG die 
horizontale Bewegung relativ langsam ist. Dafur ist der 80-Zei- 
chen-Modus verantwortlich. Wahrend vertikal nur 25 Zeilen zu 
durchlaufen sind, um von einem zum anderen Bildschirmrand zu 
kommen, sind es in der Horizontalen immerhin 80. Wenn Sie 
dies andern wollen, kbnnen Sie entweder auf den 40-Zeichen- 
Modus umschalten (dann sind jedoch auch die Koordinatenbe- 
grenzungen zu andern), Oder Sie beschleunigen die horizontale 
Bewegung, indem Sie einige Stellen uberspringen, also beispiels- 
weise nicht xl=xl+l, sondern xl=xl+3 schreiben. Aber auch 
dann sind die Koordinatenbegrenzungen in den entsprechenden 
Programmzeilen zu andern. 

Das Programm zeigt sehr schon, wie schnell man mit dem Joy¬ 
stick ein Symbol auf dem Bildschirm bewegen kann. Das ist aber 
auch schon alles, mit anderen Worten: das Programm ist lang- 
weilig. Sie bleiben aufgefordert, das Programm selbst zu ergan- 
zen und daraus ein leistungsfahiges Spiel zu machen. Vielleicht 
bringen Sie die "Bombe" aus Kapitel 6.4 ins Spiel. Und wenn 
dann die Bomben-Koordinaten x2 und y2 mit den Koordinaten 
xl und yl ubereinstimmen... 

Furs erste reicht es aber auch, wenn Sie ein paar "Felsbrocken" 
auf dem Bildschirm verstreuen, die Ihr Mannchen dann 
"auffressen" muB. Dies laGt sich mit vier zusatzlichen Pro¬ 
grammzeilen leicht programmieren: 
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33 FOR i=1 TO 30 

34 LOCATE INT(RND*77+2),I NT(RND*24+1) 

35 PRINT CHR$(143) 

36 NEXT i 

Sie sehen, daB Sie das Mannchen so schnell bewegen konnen, 
daB eine prazise Steuerung oft nicht moglich ist. Zumindest 
brauchen Sie ein wenig Fingerspitzengefiihl, und das kdnnen Sie 
mit dieser Programmerweiterung sehr gut erlangen. 

Der fehlende Wettbewerbscharakter laBt sich iibrigens durch 
weitere Programmerweiterungen herstellen. Zum Beispiel konn- 
ten Sie einen Zeitnehmer einbauen (TIME-Funktion) oder mit 
einem zweiten Joystick andersartige "Felsbrocken" (z. B. 
CHR$(127)) und ein zweites Mannchen ins Spiel bringen, um 
dann die "Felsbrocken" im Wettlauf zu "fressen". Aber lassen Sie 
Ihrer Phantasie freien Lauf. 

In diesem Programmbeispiel hatten die ‘Feuer‘-Knopfe keine 
Funktion. Wollten Sie diese mit einer Funktion belegen und 
diese Funktion mit den acht Bewegungsrichtungen kombinieren, 
so hatte dies eine nicht unerhebliche Programmausweitung zur 
Folge. Sie sollten dann mit einer anderen Programmiertechnik 
arbeiten. Dazu miissen die von JOY wiedergegebenen Dezimal- 
werte in eine 6 stellige Binarzahl umgewandelt werden. Sodann 
werden die 6 Stellen von rechts nach links iiberpriift, ob das 
entsprechende Bit gesetzt werden soli (Wert 1) Oder nicht (Wert 
0). Daran anschlieBend wird in einzelne Unterprogramme ver- 
zweigt. Jedes Unterprogramm steht dann fur eine Joystickfunk- 
tion. Zum Beispiel wurde bei der Binarzahl 001001 ins Unter¬ 
programm "rechts" und ins Unterprogramm "abwarts" verzweigt 
werden. 

Diese Programmiertechnik soil hier jedoch nicht praktisch 
umgesetzt werden. Yielmehr sollten Sie diese Yorgehensweise bei 
komplizierteren Joystick-Programmen verwenden. Um dies 
jedoch noch einmal in einem kleinen Programm zu verdeutli- 
chen, finden Sie im folgenden einen Vorschlag zur Identifikation 
der einzelnen Bit-Werte: 
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10 INPUT"Zahl zwischen 1 und 63 ";z 
20 a$=BIN$(z,6) 

30 FOR i=1 TO 6 
40 b$=RIGHT$(a$,i) 

50 b$=LEFT$(b$,1) 

60 PRINT b$ 

70 NEXT i 

Geben Sie beispielsweise den Wert 10 ein, so erhalten Sie fol- 
gendes Ergebnis: 

0 (Bit 0) 

1 (Bit 1) 

0 (Bit 2) 

1 (Bit 3) 

0 (Bit 4) 

0 (Bit 5) 

Die Variable b$ gibt somit die Stellen der Binarzahl von rechts 
nach links wieder. Die Begrenzung der einzugebenden Dezimal- 
zahl errechnet sich aus: 2°+2 1 +2 2 +2 3 +2 4 +2 5 = 63. JOY liefert also 
den Wert 63, wenn alle Funktionen des Joysticks miteinander 
kombiniert werden. Dies ist allerdings nur theoretisch mdglich, 
da sich einige Funktionen gegenseitig ausschlieBen. Zum Beispiel 
kdnnen die Funktionen "aufwarts" und "abwSrts" nicht miteinan¬ 
der kombiniert werden. 

Falls Sie im Umgang mit Bin&rzahlen noch unsicher sind, 
schauen Sie sich doch einmal das Programm "Hilfe zur Bestim- 
mung des Kanalwertes" in Kapitel 6.3 an. Dort wird nicht mit 
der Funktion BINS, sondern mit mathematischen Uberlegungen 
untersucht, welche Potenzen von 2 in einem Dezimalwert auf- 
tauchen. 


6.11 Die Nutzung der 128 K 

Der Speicher des CPC hat 128 K RAM und zwar in zwei Ein- 
heiten zu je 64 K. Wdhrend CP/M Plus immer mit dem 
gesamten Speicherplatz von 128 K arbeitet, nutzt BASIC in der 
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Regel nur die ersten 64 K. Sicherlich interessieren Sie sich 
brennend dafiir, wie die zweiten 64 K beim Programmieren in 
BASIC genutzt werden konnen. 

Im Vergleich zu anderen 128 K-Rechnern ist dieses Problem 
beim CPC 6128 sehr gut gelost worden. Auf der ersten Seite 
Ihres Systemdiskettensatzes befindet sich namlich ein Programm 
mit dem Namen "BANK MANAGER". Starten Sie dieses Pro¬ 
gramm mit 

RUN"BANKMAN", 

so haben Sie nach wenigen Sekunden die folgenden RSX- 
Befehle (RSX = Resident System extension) zur Verfugung: 

SCREENCOPY 

SCREENSWAP 

BANKOPEN 

BANKWRITE 

BANKREAD 

BANKFIND 

Diese zusatzlichen Befehle werden mit einem vorangestellten 
Balken (Tasten-Nummer 26 mit SHIFT) gekennzeichnet. Nach- 
dem das Programm "BANKMAN" geladen wurde, konnen diese 
Befehle in BASIC-Programmen verwendet werden, um die 
zweiten 64 K zu nutzen. Wahrend man mit den ersten beiden 
Befehlen. Bidschirmseiten auf den Bildschirm holen und aus- 
wechseln kann, dienen die restlichen Befehle der Speicherung 
von Textfolgen (Strings). Wir werden uns in diesem Kapitel nur 
mit der ersten Moglichkeit vertraut machen. Die Nutzung der 
restlichen vier Befehle wird in Kapitel 8.3 ausfiihrlich erlautert. 
Dort finden Sie dazu auch ein interessantes Anwendungsbeispiel, 
namlich die Programmierung relativer Dateien mit den zweiten 
64 K als RAM-Disk. 

Um den Inhalt einer Bildschirmseite zu speichern, benotigt Ihr 
CPC 16384 Byte, das sind genau 16 K. Diesen Speicherplatz 
benotigt der Rechner unabhangig davon, ob viel Oder wenig auf 
dem Bildschirm zu sehen ist. Nach dem Start von "BANKMAN" 
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existieren nun 5 logische Bildschirmseiten zu je 16 K. Dabei ist 
die Nummer 1 immer die sichtbare Seite. Die anderen vier Sei- 
ten (Nummer 2 bis 5) liegen im Zusatz-RAM. Sie haben nun die 
Mdglichkeit, Bilder zu kopieren und Bilder auszutauschen. Zum 
Beispiel kdnnen Sie mit 

|SCREENCOPY,2,1 

das Bild auf dem sichtbaren Bildschirm in die zweite Seite 
kopieren. Dann kdnnen Sie den Bildschirm ldschen und ein 
neues Bild erzeugen, das Sie dann mit 

|SCREENCOPY,3,1 

in die dritte Seite kopieren kdnnen. 

Bei diesem Befehl gibt der erste Parameter immer an, in welche 
Seite kopiert werden soil, und der zweite Parameter bestimmt, 
von welcher Seite kopiert werden soil. Die Syntax dieses Befehls 
ist also denkbar einfach. 

Ebenso einfach kdnnen Sie Bilder austauschen. Mit 
|SCREENSWAP,2,3 

wird zum Beispiel der Inhalt der beiden angegebenen Seiten 
vertauscht. Auf dem Bildschirm passiert dabei allerdings nichts, 
da ja nur die erste Seite sichtbar ist. Wenn Sie jetzt aber 

|SCREENSWAP, 1,2 

eingeben, sehen Sie auf dem Bildschirm das oben in die dritte 
Seite kopierte Bild. 

Ein einfaches Programm soil Ihnen den Umgang mit diesen 
Befehlen weiter verdeutlichen: 
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10 MODE 1 

20 PRINT TAB(16)"BiId 1" 

30 FOR i=1 TO 960:PRINT"1";:NEXT 
40 |SCREENC0PY,2,1 
50 CLS 

60 PRINT TAB(16)"Bitd 2" 

70 FOR i=1 TO 960:PRINT"2";:NEXT 
80 |SCREENCOPY.3,1 
90 |SCREENCOPY,1,2 
100 |SCREENSWAP,3,2 
110 GOTO 90 


Hier wird in den Zeilen 20 bis 30 ein Bild erzeugt, das dann in 
die zweite Seite kopiert wird (Zeile 40). AnschlieBend wird der 
Bildschirm geloscht und ein neues Bild erstellt (Zeile 60-70), das 
dann in die dritte Seite kopiert wird (Zeile 80). Im weiteren 
Programmverlauf wird dann immer (siehe Satz 110) das Bild auf 
den Bildschirm geholt, das sich in der zweiten Seite befindet 
(Zeile 90). Aufgrund der Austauschanweisung in Zeile 100 
wechseln sich dabei die beiden oben erzeugten Bilder ab. 

Insbesondere in komplizierteren Programmen lassen sich mit den 
beiden SCREEN-Befehlen sehr schdne Effekte erzielen. Zum 
Beispiel lassen sich in den Seiten 2 bis 5 Hilfsbildschirme mit 
Erlauterungen zur Programmbenutzung Oder aber zus&tzliche 
Grafiken (z. B. Balken- oder Kuchendiagramme) unterbringen. 
Im nlichsten Kapitel finden Sie ein Programm, das die zweiten 
64 K auf diese Art und Weise nutzt. Nicht von ungefahr ist dies 
ein Grafikprogramm. SelbstverstSndlich konnen Sie die 
SCREEN-Befehle auch fur Bildschirmtexte benutzen. Sie miissen 
dann aber darauf achten, daB der Bildschirm nicht wegrollt und 
daB die Modi der Bilder immer gleich sind. Bei grafischen Dar- 
stellungen kommt dies halt hSufiger vor. 


6.12 Grafikeditor 

Sicherlich haben Sie schon bemangelt, daB es vergleichsweise 
kompliziert ist, mit einzelnen Grafikanweisungen konkrete Gra- 
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fikvorstellungen auf den Bildschirm zu bringen. Wahrend Sie bei 
dem Gebrauch des konventionellen Gedankentragers Papier ohne 
groBen Aufwand kleine Anderungen vornehmen konnen, ist bei 
der Computergrafik eine exakte Koordinatenbestimmung not- 
wendig, bevor die entsprechende Grafikanweisung eingegeben 
werden kann. 

Eine erhebliche Erleichterung schafft jedoch ein Grafikeditor. 
Nach dem Programmstart konnen Sie dann durch einfache 
Tastenbetatigung den Grafik-Cursor bewegen, Linien oder 
Kreise zeichnen, Farben andern usw. Da die Tastatur des Rech- 
ners jedoch nicht so benutzerfreundlich sein kann wie der "alte" 
Bleistift, sind in den letzten Jahren neue Schnittstellen zwischen 
dem Computer und dem Menschen entwickelt worden. Bei die- 
sen Schnittstellen handelt es sich quasi um neue Eingabegerate. 
Neben dem schon vorgestellten Joystick sind insbesondere die 
Instrumente "Maus" und "Grafik-Tablett" zu nennen. Dabei 
kommt das Grafik-Tablett in seiner Funktionsweise dem Papier 
sehr nahe. Diese Eingabegerate sollen jedoch im folgenden 
unberiicksichtigt bleiben, da die Darstellung der professionellen 
Grafikverarbeitung sicherlich den Rahmen des vorliegenden 
Buches sprengen wiirde. Sollten Sie hingegen iiber das ver- 
gleichsweise einfache Instrument ‘Joystick* verfiigen, so ist eine 
Anderung des hier vorgestellten Programms mit wenigen Hand- 
griffen (siehe Kapitel 6.10) zu bewerkstelligen. 

Mit Hilfe des folgenden Programms kdnnen Sie beliebige Bilder 
erstellen, die Sie auf Diskette abspeichern und wieder einlesen 
kdnnen. Da im Programm der RSX-Befehl SCREENCOPY 
benutzt wird, miissen Sie vor dem Programmstart das 
"BANKMAN"-Dienstprogramm laufen lassen. Dieser Befehl 
ermbglicht es, vier Bilder gleichzeitig zu verwalten. Ein Tasten- 
druck geniigt, und Sie haben ein anderes Bild auf dem Bild¬ 
schirm, das Sie dann bearbeiten kdnnen. Die zusatzlichen 64 K 
RAM werden so sinnvoll genutzt. Ebenfalls auf Tastendruck 
wird Ihnen die Tastaturbelegung ausgegeben. Nach einem 
erneuten Tastendruck haben Sie dann das vorangegangene Bild 
wieder auf dem Bildschirm. Auf diese Art und Weise werden 
auch die Parameter eingegeben, wenn es darum geht, einen 




164 


Das sroBe BASIC-Buch zum CPC 6128 


Kreis zu zeichnen, Oder wenn Sie zuriick zum Ausgangsmenu 
wollen. 


Das Menii hat die folgenden Bestandteile: 

- Bild erstellen bzw. zeigen 

- Bild laden 

- Bild speichern 

- Ausgabe der Tastaturbelegungen 

- Disketteninhalt 

- Programm beenden 

Wenn Sie eine der ersten drei Programmfunktionen wahlen, wird 
anschlieBend eine Angabe zur Bildnummer bzw. Startnummer 
angefordert. Handelt es sich um das Laden Oder Speichern, so 
wird das Bild mit SCREENCOPY in die angegebene Seite (siehe 
Kapitel 6.11) kopiert bzw. von der angegebenen Seite auf die 
Diskette ubertragen. Dazu ist jeweils ein Bildname anzugeben. 
Bei der Bilderstellung handelt es sich hingegen lediglich um eine 
Startnummer, d.h., das Bild wird spater in die Seite mit der 
angegebenen Nummer kopiert. Wahrend Sie eine Zeichnung 
erstellen, erscheint diese Nummer in der linken oberen Ecke des 
Bildschirms. Da beim Laden unbedingt ein korrekter Name 
angegeben werden muB, weil eine Fehlermeldung ein nicht 
erlaubtes Hochrutschen des Bildschirms bewirken wiirde, ist die 
Programmfunktion "Disketteninhalt" mit in das Programm aufge- 
nommen worden. So kdnnen Sie sich vor dem Laden liber die 
auf der Diskette gespeicherten Bilder informieren. Die Pro¬ 
grammfunktion "Ausgabe der Tastaturbelegungen" konnen Sie 
auch wahrend der Erstellung eines Bildes aufrufen. Sie ist 
jedoch auch vom Menii aus aufrufbar, um Ihnen die Arbeit mit 
dem Programm auch dann zu ermoglichen, wenn Sie die hier 
gemachten Eriauterungen nicht gerade zur Hand haben sollten. 

Aber kommen wir zur Tastaturbelegung: 

Mit den Cursorsteuertasten konnen Sie die Bildschirmkoordina- 
ten, die rechts oben (y-Koordinate) und rechts unten (x-Koor- 
dinate) auf dem Bildschirm angezeigt werden, andern. Mit einer 
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Koordinaten&nderung wird jedoch noch nicht der Grafik-Cursor 
bewegt. Erst wenn Sie die TAB-Taste betatigen, bewegt sich der 
Grafik-Cursor mit MOVE zur angegebenen Position. Wollen Sie 
eine Linie zeichnen, so benutzen Sie die COPY-Taste. Mit ihr 
wird von der Position des Grafik-Cursors eine Linie zur rechts 
oben und rechts unten angezeigten Position gezogen. Praktisch 
kdnnen Sie so vorgehen, daB Sie die Cursorsteuertasten und die 
COPY-Taste gleichzeitig driicken, um effektiv zeichnen zu kon- 
nen. Die TAB-Taste werden Sie in der Regel nur dann benoti- 
gen, wenn Sie ein nicht zusammenhangendes Bild erzeugen 
wollen. Sollte Ihnen die Koordinatenanderung zu langsam sein, 
so kdnnen Sie diese mit der Plus-Taste beschleunigen und mit 
der Minus-Taste auch wieder verlangsamen. 

Betatigen Sie die Taste "k" oder "g", so wird das Bild ins Zusatz- 
RAM kopiert, und Sie kdnnen in Ruhe die Parameter "Radius" 
und "Winkel" (360 Grad=Vollkreis) zur Erstellung eines Kreises 
eingeben. Danach erscheint das aktuelle Bild wieder auf dem 
Bildschirm, d.h., das ins Zusatz-RAM kopierte Bild wird wieder 
zuriick in die erste Seite kopiert. Der Unterschied zwischen "g" 
und "k" liegt darin, daB bei der Wahl von "k" ein einfacher Kreis 
und bei "g" ein ausgefiillter Kreis gezeichnet wird. Nach dem 
Aufruf der Kreisfunktionen bildet die rechts oben und unten 
auf dem Bildschirm angegebene Position den Kreismittelpunkt. 

Mit den Tasten "w", "s", "r" und "b" konnen Sie die Farbe Ihres 
"Stiftes" andern. Da das Programm im MODE 1 lauft, haben Sie 
ja bekanntlich vier Farben zur Auswahl. Es steht dabei "w" fur 
weiB, "s" fur schwarz, "r" fur rot und "b" fur blau. Wenn Sie die 
Farbe weiB wahlen, konnen Sie quasi wie mit einem Radier- 
gummi schon existierende Punkte und Linien loschen, da die 
Hintergrundfarbe ebenfalls weiB ist. 

Wenn Sie die Space-Taste (Leertaste) oder ENTER-Taste 
driicken, wird das aktuelle Bild ebenfalls ins Zusatz-RAM 
kopiert. Wahrend bei Betatigung der Space-Taste die Tastatur- 
belegung ausgegeben wird und nach nochmaligem Driicken der 
Space-Taste wieder das aktuelle Bild auf dem Bildschirm 
erscheint, konnen Sie mit der ENTER-Taste zum Menii zuriick- 
kehren. 
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Die letzte interessante Mdglichkeit dieses Programms besteht 
darin, das aktuelle Bild (Seite 1) mit einem anderen im Zusatz- 
RAM befindlichen Bild auszutauschen. Das aktuelle Bild wird 
dabei in die zugehorige Seite kopiert (siehe Variable n), und das 
gewiinschte Bild erscheint auf dem Bildschirm. Diese Bildwahl 
vollzieht sich, wenn Sie einfach die Zahl 2, 3, 4 Oder 5 der 
Tasten links oben auf Ihrer Tastatur wahlen. Diese leistungs- 
starke Programmfunktion ermoglicht es Ihnen, zum Beispiel 
Detailzeichnungen schnell auf den Bildschirm zu bringen. Wenn 
Sie beispielsweise ein Bild mit einem GrundriB zu einem Haus 
erstellt haben, so konnen Sie durch einfachen Tastendruck 
Zeichnungen einzelner Raume abrufen. 

Nach so vielen Erlauterungen zur Programmbenutzung sind Sie 
sicherlich schon auf das Listing neugierig. Hier ist es: 


10 REM Graphikeditor 
20 BORDER 26 
30 INK 0,26 
40 INK 1,0 
50 INK 2,6 
60 INK 3,11 
70 ORIGIN 0,0 
80 f=1:g=2 
90 CLS 

100 FOR i=2 TO 5 
110 |SCREENCOPY,i,1 
120 NEXT i 
130 MODE 1 

140 PRINT TAB(33) ,, Eingabe M :PRINT: PR I NT 

150 PRINT"Bi Id erstellen bzw. zeigen";TAB(36)"1 ,, :PRINT 

160 PRINT"BiId laden",•TAB(36) M 2":PRINT 

170 PRINT"BiId speichern";TAB(36)"3":PRINT 

180 PRINT"Ausgabe der Tastaturbelegungen";TAB(36) M 4":PRINT 

190 PR I NT"Disketteninha It";TAB(36)"5":PR I NT 

200 PRINT"Programm beenden";TAB(36}"6" 

210 PR I NT:PR I NT:INPUT"Ihre Wahl ";a 
220 IF a<1 OR a>6 THEN 130 
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230 IF a=6 THEN END 

240 IF a=5 THEN MODE 2:CAT:GOSUB 1150:GOTO 130 
250 IF a=4 THEN GOSUB 970:GOTO 130 
260 PRINT:PRINT:PR I NT 

270 IF a=1 THEN INPUT"Startnummer (Bild 2, 3, 4 Oder 5) ";n:GOTO 
290 

280 INPUT"BiIdnummer (Zahl zw. 2 u. 5) ";n 
290 IF n<2 OR n>5 THEN 130 
300 IF a=1 THEN 430 

310 PRINT:PR I NT:PRINT"Geben Sie einen Bildnamen" 

320 INPUT"mit maximal 8 Zeichen an ";bn$ 

330 IF LEN(bn$)<1 OR LEN <bn$)>8 THEN 130 

340 IF a=2 THEN 390 

350 REM speichern 

360 |SCREENCOPY,1,n 

370 SAVE bn$,b,49152,16384 

380 GOTO 130 

390 REM laden 

400 LOAD bn$ 

410 |SCREENCOPY,n,1 
420 GOTO 130 

430 REM Zeichnungen erstetlen 
440 |SCREENCOPY,1,n 


450 

IF 

INKEY(0)=0 THEN y=y+g 


460 

IF 

INKEYO )=0 THEN x=x+g 


470 

IF 

INKEY(2)=0 THEN y=y-g 


480 

IF 

INKEY(8)=0 THEN x=x-g 


490 

IF 

INKEY(28)=32 THEN g=g+1 


500 

IF 

INKEY(25)=0 

THEN g=g-1:1F g<1 THEN : 

3=1 

510 

IF 

INKEY(68)=0 

THEN MOVE x,y,f 


520 

IF 

INKEY(9)=0 THEN DRAU x,y,f 


530 

IF 

INKEY(37)=0 

THEN ga$="p":GOSUB 780 


540 

IF 

INKEY <52)=0 

THEN ga$="d":GOSUB 780 


550 

IF 

INKEY(59)=0 

THEN f=0 


560 

IF 

INKEY(60)=0 

THEN f=1 


570 

IF 

INKEY <50)=0 

THEN f=2 


580 

IF 

INKEY(54)=0 

THEN f=3 


590 

IF 

INKEY(47)=0 

THEN GOSUB 940 


600 

IF 

INKEY(65)=0 

AND n<>2 THEN i=2:GOSUB 

730 

610 

IF 

INKEY(57)=0 

AND n<>3 THEN i=3:GOSUB 

730 
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620 IF INKEY(56)=0 AND n<>4 THEN i=4:GOSUB 730 

630 IF INKEY(49)=0 AND n<>5 THEN i=5:GOSUB 730 

640 IF INKEY(6)=0 THEN |SCREENCOPY,n,1:CLEAR INPUT:GOTO 130 

650 IF x<0 THEN x=0 

660 IF x>639 THEN x=639 

670 IF y<0 THEN y=0 

680 IF y>399 THEN y=399 

690 LOCATE 1,1:PR I NT n 

700 LOCATE 35,25:PR I NT x 

710 LOCATE 35,1:PRINT y 

720 GOTO 450 

730 REM Unterprogramm 'Bildschirmaustausch 1 

740 CLEAR INPUT 

750 |SCREENCOPY,n,1 

760 |SCREENCOPY,1,i 

770 n=i:RETURN 

780 REM Unterprogramm 1 Kreis' 

790 |SCREENCOPY,n,1 
800 CLEAR INPUT 
810 CLS 

820 PRINT"Eingaben zun Kreis":PR I NT:PR I NT:PR I NT 

830 INPUT"Radius (in Pixel) ";r:PRINT 

840 INPUT"Winkel (in Grad) ";w 

850 IF w>360 THEN w=360 

860 |SCREENCOPY,1,n 

870 DEG 

880 FOR i=1 TO w 

890 IF ga$="p" THEN PLOT x+r*COS(i),y+r*SIN(i),f:GOTO 920 
900 PLOT x,y,f 

910 DRAW x+r*COS(i),y+r*SIN(i),f 
920 NEXT i 
930 RETURN 

940 REM Unterprogramm 'Tastaturbelegungen' 

950 |SCREENCOPY,n,1 
960 CLEAR INPUT 
970 CLS 

980 PRINT ,, Taste";TAB(20)"Bedeutung":PRINT: PR I NT 
990 PRINT"Cursorsteuertasten";TAB(20)"Koordinatenaenderung":PRINT 
1000 PRINT"+,-TAB(20)"Aenderung":PRINT TAB(20)"beschleunugen": 
PRINT 
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1010 PRINT"TAB";TAB(20)"Cursor bewegen":PRINT 

1020 PRINT"COPY";TAB(20)"Lime ziehen":PR I NT 

1030 PRINT"k ll ;TAB(20)"Kreis":PRlNT 

1040 PRINT"g";TAB(20)"ausgefuelIter Kreis":PRINT 

1050 PRINT"w,s,r,b";TAB(20)"weiss, schwarz":PRINT TAB(20)"rot, 

blau":PRINT 

1060 PRINT"Leertaste l, ;TAB(20)"Tastenbelegungen":PRINT TAB(20)"und 
zurueck zum BiId":PR I NT 

1070 PRINT"2,3,4,5 (oben)";TAB(20)»Bildaustausch":PRINT 
1080 PRINT"ENTER";TAB(20) ,, Menue" 

1090 CLEAR INPUT 
1100 GOSUB 1150 
1110 IF a=4 THEN RETURN 
1120 |SCREENCOPY,1,n 
1130 CLEAR INPUT 
1140 RETURN 

1150 REM Unterprograrun 'Warten* 

1160 x$=INKEYS:IF x$='"' THEN 1160 
1170 RETURN 


Variablenliste: 

a Antwort ‘Meniiauswahl* 

bn$ Name eines Bildes 

f ‘FarbstifY der Grafik-Anweisungen 

g Geschwindigkeit der Koordinatenanderung 

ga$ Hilfsvariable, die anzeigt, ob ein Kreis ausgefullt 

werden soil 

i Laufindex und Hilfsvariable im Unterprogramm 

‘Bild schirmaustausch 4 
n Start- bzw. Bildnummer 

r Radius in Pixel 

w Winkel in Grad 

x x-Koordinate 

x$ Wert der gedriickten Taste 

y y-Koordinate 
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Programmbeschreibung: 

10 

Kommentar 

20 

Darstellung der Randflache des Bildschirms in 
leuchtendweiB 

30-60 

Die PEN- bzw. PAPER-Nummern 0 bis 3 werden 
mit den Farben leuchtendweiB (Satz 30), schwarz 
(Satz 40), hellrot (Satz 50) und himmelblau (Satz 
60) belegt. 

70 

Der Ursprung des Grafik-Cursors wird bestimmt. 

80 

Die Farbe des "Stiftes" und die Geschwindigkeit 
der Koordinatenanderung wird mit einem Startwert 
belegt. 

90 

Loschen des Bildschirms 

100-120 

Der gelOschte Bildschirm wird in die vier Seiten 
des Zusatz-RAMs kopiert, um die dort nach dem 
ersten Programmstart befindlichen zufailigen 
Muster zu uberschreiben. 

130-200 

Loschen des Bildschirms durch Umschalten auf den 
40-Zeichen-Modus und Ausgabe des Menus 

210-220 

Eingabe eines Wertes zur Meniiauswahl. Entspre- 
chend dieser Eingabe werden die folgenden Siitze 
abgearbeitet. 

230 

Programmende 

240 

Ausgabe des Disketteninhalts und Rucksprung zum 
Menu. Da hier unbedingt ein Hochrutschen des 
Bildschirms verhindert werden muB, erfolgt die 
Ausgabe im 80-Zeichen-Modus. Vor dem Ruck- 
sprung ist eine Taste zu driicken (siehe Unterpro- 
gramm *Warten‘). 
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250 

Ausgabe der Tastaturbelegung durch Verzweigung 
ins entsprechende Unterprogramm und Riicksprung 
zum Menu 

260-290 

Nach der Ausgabe dreier Leerzeilen wird ein Wert 
(zwischen 2 und 5, entsprechend der Seiten im 
Zusatz-RAM) fur die Start- Oder Bildnummer 
angefordert. 

300-330 

Wenn keine Zeichnung erstellt werden soil (siehe 
Satz 300), erfolgt die Eingabe eines Bildnamens. 1st 
dieser Name zu lang (oder zu kurz), wird zum 
Menu zuriickverzweigt. 

340-380 

Soil kein Bild geladen werden (siehe Satz 340), 
wird das Bild von der n-ten Seite des Zusatz- 
RAMs auf den Bildschirm kopiert (Satz 360). So 
wie Sie das Bild dann sehen, wird es binar 
gespeichert. Der Bildschirmspeicher f&ngt bei der 
Adresse 49152 an und ist 16 K lang. AnschlieBend 
wird zum Menu zuriickverzweigt. 

390-420 

Dieser Programmteil wird nur erreicht, wenn bei 
der Meniiauswahl eine ‘2‘ eingegeben worden ist. 
Entsprechend dieser Wahl wird hier ein Bild mit 
dem angegebenen Namen geladen (Satz 400) und 
vor dem Riicksprung zum Menii in die n-te Seite 
des Zusatz-RAMs kopiert (Satz 410). 

430-720 

Programmteil ‘Zeichnungen erstellen 1 . Dieser Pro¬ 
grammteil wird solange durchlaufen (siehe Riick¬ 
sprung in Satz 720), bis die ENTER-Taste 
gedriickt wird (siehe Satz 640). Bevor jedoch die 
Grafikerstellung beginnt Oder fortgesetzt wird, 
muB das Bild der n-ten Seite auf den Bildschirm 
kopiert werden (Satz 440). AnschlieBend wird die 
Tastatur mit INKEY abgefragt. Die Zeilen 450-640 
haben dabei folgende Bedeutung: 
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450-480 


Anderung der Koordinaten 


490-500 Die Geschwindigkeit der Koordinatenanderung 

kann beschleunigt Oder verlangsamt werden. Sie 
kann nicht kleiner als ‘1‘ werden. 

510 Bewegung des Grafik-Cursors 

520 Zeichnen einer Linie 

530-540 Verzweigung ins Unterprogramm ‘Kreis* und Bele- 

gung der Hilfsvariablen ‘ga$‘ 


550-580 Die Farbe des "Stiftes" wird gegebenenfalls gean- 
dert. 


590 Verzweigung ins Unterprogramm 

‘Tastaturbelegungen* 

600-630 Je nach Tastendruck wird die Hilfsvariable i belegt 
und anschlieGend ins Unterprogramm 
‘Bildschirmaustausch verzweigt*. 

640 Nach der Betatigung der ENTER-Taste wird das 

Bild in die n-te Seite kopiert, der Tastaturpuffer 
wird entleert, und es erfolgt der Riicksprung zum 
Menu. In den nachfolgenden Satzen 650-710 wer¬ 
den die x- und y-Koordinaten iiberpruft und 
gegebenenfalls entsprechend der zur Verfugung 
stehenden Pixel korrigiert. Die Werte der Variablen 
n, x und y werden in den Bildschirmecken ausge- 
druckt. Wenn Sie wollen, konnen Sie natiirlich auch 
noch weitere INKEY-Anweisungen hinzufugen. 
Interessant ware es zum Beispiel, die Statements 
FILL Oder MASK sinnvoll einzusetzen. 

730-770 Unterprogramm ‘Bildschirmaustausch*. Nach einer 
Entleerung des Tastaturpuffers (Satz 740) wird die 
aktuelle Seite (Seite 1) in die n-te Seite kopiert 
(Satz 750) und die i-te Seite erscheint auf dem 
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Bildschirm (Satz 760). Die Variable ‘i‘ ist vor der 
Verzweigung in dieses Unterprogramm belegt wor- 
den. Sie ist gleich der Nummer des gewiinschten 
Bildes. Da das i-te Bild nun das aktuelle Bild ist, 
wird ‘n‘ vor dem Rucksprung gleich ‘i‘ gesetzt. 

780-930 Unterprogramm ‘Kreis 4 . Bevor die Eingaben zum 
Kreis gemacht werden, wird das aktuelle Bild wie- 
der ins Zusatz-RAM kopiert (Satz 790). 
Anschliefiend erscheint dann wieder das aktuelle 
Bild auf dem Bildschirm (Satz 860), und der Kreis 
wird in Abhangigkeit von den eingegebenen Wer- 
ten gezeichnet (Satz 870-920). In Satz 890 wird mit 
Hilfe der Variablen ga$ entschieden, ob ein aus- 
gefiillter Kreis gezeichnet werden soli oder nicht. 
Bei einem ausgefullten Kreis werden Linien vom 
Kreismittelpunkt zu den einzelnen Kreispunkten 
gezogen (siehe Satz 900-910), wahrend ansonsten 
nur die Kreispunkte geplottet werden (Satz 890). 

940-1140 Unterprogramm ‘Tastaturbelegungen 1 . Wenn dieses 
Unterprogramm vom Menu aus aufgerufen wird, 
erfolgt der Einsprung in Zeile 970, und in Zeile 
1110 wird das Unterprogramm wieder verlassen. 
Die SCREEN- und CLEAR- INPUT-Befehle wer¬ 
den also nur abgearbeitet, wenn dieses Unterpro¬ 
gramm wahrend der Bilderstellung aufgerufen 
wird. 


1150-1170 


Unterprogramm ‘Warten 4 
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7. Musik 


7.1 Einfiihrung 

Auch bezuglich der Musikeigenschaften gehort Ihr CPC 6128 zur 
Spitzenklasse unter den Heimcomputern. Es muB fur Sie als 
CPC-Besitzer nicht bei der Erzeugung von Gerauschen bleiben, 
wie es bei einigen vergleichbaren Computern der Fall 1st. Viel- 
mehr konnen Sie - mit etwas Ubung - einzelne Instrumente 
nachbilden und sogar eine komplette Melodie mit Harmonien 
programmieren und abspielen. Zwar reicht Furs erste der einge- 
baute Lautsprecher zum Abspielen Ihrer Musikprogramme, 
jedoch ist der AnschluB Ihres Rechners an eine Stereoanlage 
dann empfehlenswert, wenn Sie die Tonfahigkeiten des CPC 
wirklich ausschopfen wollen. 

Zwar steht die Musikprogrammierung nicht im Mittelpunkt die¬ 
ses Buches, jedoch sollen im folgenden Kapitel die wichtigsten 
Begriffe und die einzelnen Befehle der Gerausch- und 
Musikerzeugung erkiart werden. Auch wenn Sie vollkommen 
unmusikalisch sein sollten, kann dieses Kapitel durchaus inter- 
essant fur Sie sein. Computermusik ist namlich mehr eine 
mathematische und physikalische Angelegenheit. Sollten Sie auch 
unter diesen Voraussetzungen kein Interesse an dieser Thematik 
haben, so bedenken Sie, daB das eine Oder andere Programm 
(insbesondere natiirlich Spielprogramme) durch eine Musikun- 
termalung verschbnert werden kann. 


7.2 Ein einfacher Soundeditor 

Wenn Sie sich die einzelnen Parameter der relevanten Musik- 
Anweisungen SOUND, ENV und ENT ansehen, so werden Sie 
bemerken, daB diese Befehle etwas aus dem Rahmen des bisher 
Gesagten fallen. Wahrend viele der schon vorgestellten Anwei- 
sungen mit sich wiederholenden Parametern eingesetzt werden 
kdnnen, ist bei der Musikprogrammierung ein gewisses Umden- 
ken erforderlich, da schon allein die Parameterbezeichnungen 
fur den ungeiibten Leser neu und fremd sind. Um Sie daher 
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nicht direkt mit der Erklarung der einzelnen Musik-Anweisun- 
gen zu entmutigen, wird im folgenden ein kleines Soundeditor- 
Programm vorgestellt, das hoffentlich Ihrem Interesse an der 
Musikprogrammierung forderlich ist. 

Das Programm ist denkbar einfach aufgebaut, da es lediglich mit 
den ersten beiden Parametern der SOUND-Anweisung arbeitet. 
Dabei wird der erste Parameter ‘Kanal-Status‘ nicht verdndert, 
sondern immer mit dem Wert ‘1‘ belegt, d.h., da(3 fur alle 
erzeugten Tone der erste (von drei ) Tonkanalen benutzt wird. 
Lediglich der zweite Parameter ‘Tonperiode* wird variiert. Fur 
ihn kann man zwar prinzipiell beliebige Werte zwischen 0 und 
4095 einsetzen, jedoch ergeben nur einige dieser Werte musi- 
kaisch "sinnvolle" Tdne. Diese sind in Ihrem Bedienungsandbuch 
einzeln aufgefiihrt. In dem folgenden Programm sind die Werte 
der Oktave 0 eingegangen. Wollen Sie eine andere Oktave 
benutzen, so brauchen Sie die entsprechenden Werte nicht neu 
einzugeben, sondern Sie kdnnen die Notenwerte mit Hilfe der 
folgenden Beziehung berechnen: 

Notenwert = Notenwert der Note in der Oktave 0 / 2 A Oktave 

Zum Beispiel ergibt sich fur den Wert der Note C in der Oktave 
2: 478/2 2 

Die entsprechende zusatzliche Programmzeile kdnnte folgendes 
Aussehen haben: 

165 t=t/2 A <Oktavennummer> 

Da sich bei dieser Beziehung sehr leicht Rundungsfehler erge¬ 
ben, ist es unter Umstanden ratsam, mit der Beziehung zu 
arbeiten, die in Kapitel 7, Seite 27 Ihres Bedienungshandbuches 
aufgefiihrt ist. Unabhangig davon, welche Formel Sie benutzen, 
kdnnen Sie natiirlich die gewiinschte Oktave auch zu Beginn des 
Programms mit einem INPUT-Statement eingegeben. 

Der eigentliche Clou des Programms ist jedoch, daB die Tdne 
mittels Tastendruck erzeugt werden. Im Vergleich zur direkten 
Eingabe einzelner SOUND-Statements ist dies sicherlich eine 
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erhebliche Arbeitserleichterung. Die Tastenbelegung entspricht 
dabei der Tonleiter, also von c bis b, inklusive der Halbtdne 
(mit SHIFT). Der folgenden Tabelle konnen Sie die Bedeutung 
der belegten Tasten entnehmen: 


aste 

Bedeutung 

c 

Note c 

C 

Halbnote c 

d 

Note d 

D 

Halbnote d 

e 

Note e 

f 

Note f 

F 

Halbnote f 

g 

Note g 

G 

Halbnote g 

a 

Note a 

A 

Halbnote a 

b 

Note b 


Neben der Tonerzeugung wird auf dem Bildschirm noch ange- 
zeigt, welche Taste gedriickt worden ist. Dies dient der besseren 
Ubersicht fur den "Komponisten". Die Betatigung einer nicht in 
der Tabelle aufgefiihrten Taste hat keine Auswirkung auf den 
Programmablauf. Nur die ESC-Taste hat die Funktion, das Pro- 
gramm abzubrechen. 


10 REM einfacher Soundeditor 
20 t$=INKEY$ 

30 IF t$="c" THEN t=239:G0T0 160 
40 IF t$= n C" THEN t=225:GOTO 160 
50 IF t$="d" THEN t=213:GOTO 160 
60 IF t$="D" THEN t=201:GOTO 160 
70 IF t$="e" THEN t=190:GOTO 160 
80 IF t$="f" THEN t=179:GOTO 160 
90 IF t$="F" THEN t=169:GOTO 160 
100 IF t$="g" THEN t=159:GOTO 160 
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110 IF t$="G 11 THEN t=150:GOTO 160 
120 IF t$="a" THEN t=142:GOTO 160 
130 IF t$="A" THEN t=134:GOTO 160 
140 IF t$= M b" THEN t=127:GOTO 160 
150 GOTO 20 
160 PRINT t$ 

170 SOUND 1,t 
180 GOTO 20 


Programmbeschreibung: 

10 Kommentar 

20 Abfrage der Tastatur 

30-140 Die gedriickte Taste wird ausgewertet. Der Para¬ 

meter ‘Tonperiode* der SOUND-Anweisung wird 
mit einem der gedriickten Taste entsprechenden 
Wert belegt, und es wird zur Bildschirmausgabe 
(Zeile 160) und zur Tonerzeugung (Zeile 170) 
verzweigt. 

150 Es erfolgt ein Riicksprung zur Tastaturabfrage, 

wenn keine Taste der Belegungstabelle gedriickt 
wurde. 

160 Bildschirmausgabe der Note 

170 Tonerzeugung mittels der SOUND-Anweisung 

180 Riicksprung zur Tastaturabfrage 


Es gibt vielfaltige Mbglichkeiten, das Programm zu verbessern 
und zu erweitern. Hier zwei Vorschlage: 

1) Die programmierte Melodie abspeichern und laden 

2) Die zusatzlichen TonkanSle nutzen (siehe folgendes Kapitel) 
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7.3 Sound und Rendezvous 

SOUND ist der wichtigste Befehl zur Tonerzeugung. Ohne ihn 
geht nichts, d.h., es ist keine Tonerzeugung moglich. Der Befehl 
SOUND hat insgesamt 7 Parameter. Wahrend sich der 5. und der 
6. Parameter auf die Hiillkurven beziehen, die im nachsten 
Kapitel naher erldutert werden, sind die Parameter 2,3,4 und 7 
recht leicht zu verstehen. Ihre Bedeutung ist zum Teil bereits 
angesprochen worden bzw. kann sehr gut mit Hilfe des Bedie- 
nungshandbuches nachvollzogen werden. 

Unser Interesse in diesem Kapitel liegt vielmehr beim ersten 
Parameter, dem ‘Kanalstatus*. Dieser Wert zeigt Ihrem CPC, 
welchen Tonkanal er benutzen soli und ob er diesen Ton mit der 
Tonfolge der anderen Kanaie abstimmen Oder ob er den Ton 
evtl. halten soil. Die Abstimmung der Tonfolge auf die drei 
Tonkanaie wird "Rendezvous" genannt. Damit haben Sie eine 
Mdglichkeit zur Verfugung, die einzelnen Kanaie zu synchroni- 
sieren. Ein Rendezvous dient zum Beispiel dem Abspielen einer 
Melodie mit Pausen, ohne daB ein ‘Knacken 1 im Lautsprecher 
entsteht. 

Wie hat man sich denn nun das Arrangement eines Rendezvous 
bildlich vorzustellen? 

Ihr CPC hat bekanntlich 3 Kanaie und ist dazu in der Lage, fur 
jeden Kanal bis zu 5 programmierte Tbne zu speichern, d.h. in 
eine Warteposition zu bringen. Ein Rendezvous zweier Kanaie 
bewirkt nun, daB die fiir die beiden Kanaie vorgesehenen Tdne 
erst dann abgespielt werden, wenn beide Kanaie frei sind. 

Ob Sie dies nun direkt verstanden haben Oder nicht, Sie werden 
auf jeden Fall die ganze Geschichte einmal ausprobieren wollen. 
Dazu miissen Sie aber die entsprechenden Werte fiir den 
‘Kanalstatus* kennen, mit denen die verschiedenen Aktivitaten 
hervorgerufen werden kdnnen. Die Werte werden aus dem fol- 
genden Byte errechnet: 
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Bit Wert Befehl 


0 1 

1 2 

2 4 

3 8 

4 16 

5 32 

6 64 

7 128 


Ton wird zum Kanal A geschickt 
Ton wird zum Kanal B geschickt 
Ton wird zum Kanal C geschickt 
Rendezvous mit Kanal A 
Rendezvous mit Kanal B 
Rendezvous mit Kanal C 
Halten des Kanals 
Loschen des Kanals 


Im Soundeditor des letzten Kapitels haben wir immer Kanal A 
benutzt, wir haben also fur den Kanal immer den Wert 1 
gesetzt. Wollen wir beispielsweise den Kanal B benutzen, so 
setzen wir den Wert 2, und wenn wir einen Ton gleichzeitig zu 
Kanal A und Kanal B schicken wollen, so addieren wir einfach 
die entsprechenden Werte und kommen auf den Wert 3. Dieses 
Prinzip der Addition verschiedener Werte wird immer dann 
angewandt, wenn wir die einzelnen oben angegebenen Werte 
verknupfen wollen. So besagt zum Beispiel die Kanalnummer 10, 
daB ein Ton auf Kanal B gespielt wird und auf einen Ton 
gewartet werden soil, der zum Rendezvous mit ihm auf Kanal A 
vorgesehen ist. Auf diese Art und Weise kdnnen Sie beliebige 
Kombinationen vornehmen. Addieren Sie alle Werte, so kommen 
Sie auf die Zahl 255. Fur groBere Werte stehen sozusagen keine 
weiteren Befehle zur Verfiigung (siehe Kapitel 4). 

Kurz erwShnt sei noch, was mit "Halten des Kanals" und 
"Ldschen des Kanals" gemeint ist. WShrend das "Halten" einer 
Note bedeutet, daB der entsprechende Ton erst nach dem Befehl 
RELEASE gespielt wird, bewirkt das "Loschen" ein abruptes 
Stoppen des Tons, der gerade aus dem bestimmten Kanal 
erklingt. 

Aber zuriick zu den einzelnen Werten fur den Kanal. Wie Sie 
vielleicht schon bemerkt haben, ist der Wert des Kanals jeweils 
gleich 2 A Bit. Kombinieren Sie die einzelnen Bits, so erhaltem Sie 
eine Binarzahl, da der Wert eines Bits entweder gleich 1 Oder 
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gleich 0 ist. So ist zum Beispiel der Wert 10 gleich der Binarzahl 
1010, also gleich 

1*2 A 3+0*2 A 2+1*2 A 1+0*2 A 0. 

Eine weitere Erlauterung des BinSrsystems soli an dieser Stelle 
nicht erfolgen (siehe Kapitel 4.4). Wie Sie aber bei der 
SYMBOL-Anweisung schon bemerkt haben durften, kommen Sie 
auch als BASIC-Programmierer nicht ganz daran vorbei, sich mit 
Bin3rzahlen zu beschaftigen. Insbesondere dann, wenn Sie Ihren 
CPC besser verstehen wollen, sollten Sie dies in aller Ruhe ein- 
mal tun. 

Aber auch zum Verstandnis des folgenden Programms benotigen 
Sie Grundkenntnisse des Binarsystems. Dort wird Ihnen namlich 
eine Hilfe fur den anfangs sicherlich nicht ganz einfachen 
Umgang mit dem Kanalstatus angeboten. Im Programmablauf 
kbnnen Sie zwischen zwei Varianten wahlen. Zum einen haben 
Sie die Mbglichkeit, einen Wert fur den Kanalstatus anzugeben. 
Als Ergebnis erhalten Sie dann die mit dem Kanalwert ausge- 
druckten Befehle. Zum anderen kdnnen Sie auch von den mog- 
lichen Befehlen ausgehen und sich den Kanalwert fur die jewei- 
lige Befehlskombination ausgeben lassen. Wenn Sie also noch 
unsicher im Umgang mit den Kanalwerten sind, tippen Sie das 
Programm kurzerhand einfach ab und probieren es aus. Es lohnt 
sich auf jeden Fall. 


10 REM Hilfe zur Bestimmung des Kanalwertes 

20 DATA Ton wird zum Kanal A geschickt.Ton wird zum Kanal B 

geschickt.Ton wird zum Kanal C geschickt 

30 DATA Rendezvous mit Kanal A,Rendezvous mit Kanal B,Rendezvous 
mit Kanal C 

40 DATA Halten des Tons.Loeschen der Uarteschlange 
50 FOR i=0 TO 7 
60 READ b$(i):NEXT i 
70 CLS 

80 PRINT"Soll von einem festen Wert fuer den" 

90 PRINT"Kanal Status ausgegangen werden (dann 11 
100 PRINT"werden die einzelnen Funktionen be-" 
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Bit Wert Befehl 


0 1 

1 2 

2 4 

3 8 

4 16 

5 32 

6 64 

7 128 


Ton wird zum Kanal A geschickt 
Ton wird zum Kanal B geschickt 
Ton wird zum Kanal C geschickt 
Rendezvous mit Kanal A 
Rendezvous mit Kanal B 
Rendezvous mit Kanal C 
Halten des Kanals 
Loschen des Kanals 


Im Soundeditor des letzten Kapitels haben wir immer Kanal A 
benutzt, wir haben also fur den Kanal immer den Wert 1 
gesetzt. Wollen wir beispielsweise den Kanal B benutzen, so 
setzen wir den Wert 2, und wenn wir einen Ton gleichzeitig zu 
Kanal A und Kanal B schicken wollen, so addieren wir einfach 
die entsprechenden Werte und kommen auf den Wert 3. Dieses 
Prinzip der Addition verschiedener Werte wird immer dann 
angewandt, wenn wir die einzelnen oben angegebenen Werte 
verkniipfen wollen. So besagt zum Beispiel die Kanalnummer 10, 
daB ein Ton auf Kanal B gespielt wird und auf einen Ton 
gewartet werden soil, der zum Rendezvous mit ihm auf Kanal A 
vorgesehen ist. Auf diese Art und Weise kdnnen Sie beliebige 
Kombinationen vornehmen. Addieren Sie alle Werte, so kommen 
Sie auf die Zahl 255. Fur groBere Werte stehen sozusagen keine 
weiteren Befehle zur Verfiigung (siehe Kapitel 4). 

Kurz erwahnt sei noch, was mit "Halten des Kanals" und 
"Ldschen des Kanals" gemeint ist. Wahrend das "Halten" einer 
Note bedeutet, daB der entsprechende Ton erst nach dem Befehl 
RELEASE gespielt wird, bewirkt das "Loschen" ein abruptes 
Stoppen des Tons, der gerade aus dem bestimmten Kanal 
erklingt. 

Aber zuriick zu den einzelnen Werten fur den Kanal. Wie Sie 
vielleicht schon bemerkt haben, ist der Wert des Kanals jeweils 
gleich 2 A Bit. Kombinieren Sie die einzelnen Bits, so erhaltem Sie 
eine Binarzahl, da der Wert eines Bits entweder gleich 1 oder 
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gleich 0 ist. So ist zum Beispiel der Wert 10 gleich der Binarzahl 
1010, also gleich 

1*2 A 3+0*2 A 2+1*2 A 1+0*2 A 0. 

Eine weitere Eriauterung des Binarsystems soil an dieser Stelle 
nicht erfolgen (siehe Kapitel 4.4). Wie Sie aber bei der 
SYMBOL-Anweisung schon bemerkt haben diirften, kommen Sie 
auch als BASIC-Programmierer nicht ganz daran vorbei, sich mit 
BinSrzahlen zu beschaftigen. Insbesondere dann, wenn Sie Ihren 
CPC besser verstehen wollen, sollten Sie dies in aller Ruhe ein- 
mal tun. 

Aber auch zum Verstandnis des folgenden Programme benotigen 
Sie Grundkenntnisse des Binarsystems. Dort wird Ihnen namlich 
eine Hilfe fur den anfangs sicherlich nicht ganz einfachen 
Umgang mit dem Kanalstatus angeboten. Im Programmablauf 
kdnnen Sie zwischen zwei Varianten wahlen. Zum einen haben 
Sie die Moglichkeit, einen Wert fur den Kanalstatus anzugeben. 
Als Ergebnis erhalten Sie dann die mit dem Kanalwert ausge- 
driickten Befehle. Zum anderen kdnnen Sie auch von den mog- 
lichen Befehlen ausgehen und sich den Kanalwert fur die jewei- 
lige Befehlskombination ausgeben lassen. Wenn Sie also noch 
unsicher im Umgang mit den Kanalwerten sind, tippen Sie das 
Programm kurzerhand einfach ab und probieren es aus. Es lohnt 
sich auf jeden Fall. 


10 REM Hilfe zur Bestimmung des Kanalwertes 

20 DATA Ton wird zum Kanal A geschickt.Ton wird zum Kanal B 

geschickt.Ton wird zum Kanal C geschickt 

30 DATA Rendezvous mit Kanal A,Rendezvous mit Kanal B,Rendezvous 
mit Kanal C 

40 DATA Halten des Tons,Loeschen der Warteschlange 
50 FOR i=0 TO 7 
60 READ b$(i):NEXT i 
70 CLS 

80 PRINT"Soll von einem festen Wert fuer den" 

90 PRINT"Kanal Status ausgegangen werden (dann" 

100 PRINT"werden die einzelnen Funktionen be-" 
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110 PRINT"stimmt), so geben Sie eine 1 ein.":PRINT 
120 PRINT"Wenn von den anzugebenden Funktionen" 

130 PRINT"der Wert fuer den Kanal Status bestimmt" 

140 PRINT"werden soil, ist eine 2 einzugeben." 

150 PR I NT:PR I NT:PR I NT:INPUT"Ihre Wahl ";a 

160 IF a<>1 AND a<>2 THEN 150 

170 CLS:IF a=2 THEN 240 

180 INPUT"Kanal Status ";k:PRINT:PRINT 

190 IF k<1 OR k>255 THEN 180 

200 FOR i=7 TO 0 STEP-1 

210 IF k>=2 A i THEN k=k-2^i:PR I NT:PR I NT b$(i) 

220 NEXT i 
230 GOTO 320 

240 PRINT"Antworten Sie mit '1' fuer 'ja'" 

250 PRINT" und 'O' fuer 'nein'":PR I NT:PR I NT 

260 FOR i=0 TO 7 

270 PRINT b$(i),rLOCATE 34,i+5:INPUT a 
280 IF a<> 0 AND a<>1 THEN 270 
290 IF a=1 THEN k=k+2 A i 
300 NEXT i 

310 PR I NT:PR I NT:PR I NT:PRINT"Kanal-Status =»;k 
320 PRINT:PRINT:END 


Variablenliste: 

a Antwortvariable 

b$(i) die 8 mit dem Kanalwert ausdriickbaren Befehle 

i Laufindex (i ist dabei Bit-signifikant) 

k Kanalwert 
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Programmbeschreibung: 

10 Kommentar 

20-60 Die mit dem . Kanalwert ausdriickbaren Befehle 

werden dem Programm als Daten zur Verfugung 
gestellt und eingelesen. 

70-140 Der Bildschirm wird geloscht, und es wird ein 

Kommentar zur Programmbenutzung ausgegeben. 

150-170 Eingabe eines Wertes beziiglich der gewiinschten 

Programmausftihrung, Loschen des Bildschirms und 
evtl. Programmverzweigung. 

180-230 Ausgehend von einem einzugebenden Kanalwert 

(zwischen 1 und 255, siehe Satz 180-190), wird in 
der Programmschleife (Satz 200-220) untersucht, 
welche Potenzen von 2 (2 A i, fur i=7 bis i=0) im 
Kanalwert enthalten sind. 1st eine Zweierpotenz im 
Wert fur k enthalten, wird k um diese Potenz ver- 
mindert, und der entsprechende Befehl wird ausge¬ 
geben (Satz 210). In Satz 230 wird zum Program- 
mende verzweigt. 

240-310 Nach einer Kommentarausgabe (Satz 240-250) 

werden in der Programmschleife (Satz 260-300) die 
8 mbglichen Befehle ausgegeben, und es wird ein 
Wert beziiglich der Frage angefordert, ob der 
jeweilige Befehl erwiinscht ist oder nicht (Satz 
270). Jedesmal wenn mit ‘ja‘ geantwortet wurde, 
wird der Kanalwert um die entsprechende Zweier¬ 
potenz erhbht (Satz 290). Ist die Schleife durch- 
laufen, so wird das Ergebnis ausgegeben (Satz 310). 

320 Programmende 


Wenn Sie mit diesem Programm mehr oder weniger erfolgreich 
geiibt haben, dann wollen Sie doch sicherlich die Ergebnisse 
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Ihrer Ubungen direkt einmal ausprobieren. Nun werden Sie aber 
auch schon festgestellt haben, dafl es sehr miihsam ist, die 
SOUND-Anweisungen einzeln zu "setzen". Daher finden Sie im 
folgenden ein kleines Programm, das Ihnen diese Arbeit teil- 
weise abnimmt. Nach dem Programmstart mussen Sie lediglich 
die Parameter der einzelnen SOUND-Anweisungen eingeben, 
wobei wir uns auf die ersten drei Parameter beschrankt haben. 
Die Anzahl der Anweisungen konnen Sie natiirlich selbst 
bestimmen. Und damit Sie den Uberblick behalten, werden 
neben einem Bildschirmfenster zur Parametereingabe zwei 
zusatzliche Fenster zur Ausgabe der letzten 50 Anweisungen 
definiert. Auch hier zeigt sich also die komfortable Nutzung der 
Window-Technologie. Nach der Eingabe aller Anweisungen wer¬ 
den diese nacheinander abgespielt. 


10 REM SOUND-Hilfe 
20 MODE 2 

30 WINDOW #0,1,19,1,25:WINDOW #1,21,50,1,25:WINDOW #2,51,80,1,25 
40 PRINT"Wieviele SOUND-":INPUT"Anweisungen ";n 
50 DIM k(n),t(n),d(n) 

60 PRINT:PR I NT:PR I NT:FOR i=1 TO n 
70 PRINT i".te Anweisung":PRINT 
80 INPUT"Kanal ";k(i) 

90 INPUT"Ton »;t(1) 

100 INPUT"Dauer ";d(i) 

110 IF j=1 THEN j=2 ELSE j=1 
120 PR I NT#j,"SOUNDk(it(id(i) 

130 PRINT:PRINT:NEXT i 

140 FOR i=1 TO n 

150 SOUND k(i),t(i),d(i) 

160 NEXT i 

170 PR I NT: PR I NT: PR I NT :PRINT"Noch einmal ab-": INPUT"spielen (j/n) 
";a$ 

180 IF a$="j" THEN 140 

190 IF a$="n" THEN MODE 1 ELSE GOTO 170 
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Variablenliste: 

a$ Antwortstring (j/n) 

d(i) Dauer 

i Laufindex 

j Parameter der WINDOW-Anweisung (gleich 1 Oder 

2 ) 

k(i) Kanal 

n Anzahl der SOUND-Anweisungen 

t(i) Tonperiode 


Programmbeschreibung : 

10 Kommentar 

20 Umschaltung auf den 80-Zeichen-Modus 

30 Drei Bildschirmfenster werden definiert. Wahrend 

das Fenster 0 der Dateneingabe dient, werden die 
Fenster 1 und 2 zur Ausgabe der gesetzten 
SOUND-Anweisungen genutzt. 

40 Eingabe der Anzahl der SOUND-Anweisungen 

50 Speicherplatzreservierung fur die ersten drei Para¬ 

meter 

60-130 Fur die n SOUND-Anweisungen werden jeweils 

die ersten drei Parameter mit Werten belegt. Nicht 
erlaubte Eingaben werden dabei nicht abgefangen. 
In den Zeilen 110-120 werden abwechselnd (Zeile 
110) im 1. bzw. 2. Fenster die gesetzten SOUND- 
Anweisungen ausgegeben. Der rechte Bildschirmteil 
ist somit Zeile fur Zeile von links nach rechts zu 
lesen. Maximal 50 SOUND-Anweisungen kdnnen 
somit gleichzeitig dargestellt werden. 

140-160 Abspielen der SOUND-Anweisungen 
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170-190 Abfrage, ob ein Abspielen wiederholt werden soil. 


Es erfolgt eine entsprechende Programmverzweigung, falls dies 
gewiinscht wird. Ansonsten ist das Programmende erreicht. 

Zum AbschluB dieses Kapitels seien noch zwei Tips erwahnt, 
die zum einen das Rendezvous und zum anderen den AnschluB 
Ihres Rechners an eine Stereoanlage betreffen. 

Wenn Sie nach dem obigen Verfahren ein Rendezvous arrangiert 
haben, werden vor Ausfiihrung des Rendezvous keine weiteren 
Tone in den Kanal gelassen. Wollen Sie dies verhindern, so 
haben Sie die Moglichkeit, einen Halt-Befehl zu setzen, um das 
Abspielen eines gefiillten Kanals aufzuhalten. Mit dem Befehl 
RELEASE kdnnen Sie diesen Kanal dann wieder aufrufen. Sie 
haben somit eine interessante Alternative, die Kanale zu syn- 
chronisieren. Zu beachten ist, daB der Parameter des RELEASE- 
Befehls ebenfalls eine Bit-signifikante Zahl ist. Um einzelne 
Kanale zu verknupfen, kdnnen Sie auf die ersten drei Befehle 
der oben angefiihrten Tabelle zur SOUND-Anweisung zuriick- 
greifen. In diesem Zusammenhang sei auch kurz die noch nicht 
angesprochene Funktion SQ erwahnt, die die Anzahl der freien 
Piatze in der Warteschlange eines anzugebenden Kanals wieder- 
gibt. Der ausgegebene Wert dieser Funktion ist ebenfalls Bit- 
signifikant (siehe Bedienungshandbuch). Insbesondere dann, 
wenn Sie verhindern wollen, daB der Programmablauf aufgrund 
einer gefiillten Warteschlange gestoppt wird, ist die Anwendung 
der Funktion SQ bzw. ON SQ GOSUB angebracht. 

Mit dem AnschluB Ihres Rechners an eine Stereoanlage kdnnen 
Sie nun wirklich alle technischen Mdglichkeiten der Musikpro- 
grammierung ausschdpfen. Dabei verteilen sich die drei 
Tonkanale folgendermaBen auf die beiden Stereokanale: Wahrend 
sich die Tdne des Kanals A und des Kanals C auf jeweils einen 
Stereokanal beziehen, erscheinen die Tdne des Kanals B auf bei¬ 
den Stereokanaien. Bei entsprechender Programmierung ist es 
somit nicht schwierig, Stereoeffekte zu erzielen. 
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7.4 Lautstarke- und Tonhiillkurven 

Die Hullkurvenbefehle ENV und ENT sind dazu gedacht, einen 
mit der SOUND-Anweisung erzeugten Ton zu verandern, um 
beispielsweise ein Musikinstrument nachzubilden. Wahrend mit 
dem Befehl ENV die Lautstarke eines Tons verandert werden 
kann (ansteigen oder abfallen), dient der Befehl ENT einer 
minimalen Anderung der Tonhohe. 

Da beide Befehle ausfuhrlich in Ihrem Bedienungshandbuch 
erklart werden, soil dies hier nicht wiederholt werden. Vielmehr 
werden wir uns im folgenden auf eine Aufstellung grundsatzli- 
cher Dinge zu den beiden Anweisungen beschranken, um dann 
daran anschlieBend zwei Programme vorzustellen, die man 
getrost als Hilfs- Oder Lernprogramme in Sachen Hiillkurven 
bezeichnen kann. 

Jede Hiillkurvenanweisung hat die Parameter 
‘Hiillkurvennummer 4 , ‘SchrittanzahP, ‘Schrittweite 4 und 
‘Schrittzeit 4 . Die Hiillkurvennummer ist eine Zahl, die der Iden- 
tifikation der definierten Hiillkurve in der SOUND-Anweisung 
dient. Die Schrittanzahl bestimmt, wie viele Lautstarke- bzw. 
Tonhbhenveranderungen ein Ton durchlaufen soil, die Schritt¬ 
weite gibt die Differenz zwischen den jeweiligen Schritten an, 
und die Schrittzeit zeigt die Dauer eines Tons fur jeden Schritt 
an. Ihrem Handbuch konnen Sie entnehmen, welche Werte fur 
die einzelnen Parameter erlaubt sind. 

Um aber nun fur einen Ton Anstieg und Abfallen der Laut¬ 
starke bzw. der Tonhohe zu kombinieren, haben Sie die Mog- 
lichkeit, eine Hiillkurve in bis zu 5 verschiedene Abschnitte zu 
unterteilen. Fur jeden dieser Abschnitte konnen Sie die drei 
Parameter ‘Schrittanzahl 4 , ‘Schrittweite 4 und ‘Schrittzeit 4 unab- 
hangig voneinander bestimmen. Je nachdem, wie viele 
Abschnitte definiert werden sollen, haben die Hullkurvenbefehle 
somit mindestens 3 und hdchstens 16 Teile. Beim ENV-Befehl 
ist es allerdings meistens ausreichend, 3 Abschnitte zu definie- 
ren, namlich Ansteigen, Halten und Abfallen der Lautstarke. 
Wollen Sie beispielsweise ein Saiteninstrument simulieren, muB 
beim ENV-Befehl das Abfallen langer sein als der Anstieg, da 
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Saiteninstrumente in der Regel einen kleinen Nachhall vom 
Schwingen der Saiten haben. 

Fur die Anpassung der Hiillkurvenbefehle an entsprechende 
SOUND-Anweisungen, ist es wichtig, die Gesamtl&nge einer 
Hullkurve (in hundertstel Sekunden) zu kennen. Diese ergibt 
sich aus der Multiplikation der Schrittanzahl (Anzahl der Stufen) 
mit der Schrittzeit (Dauer pro Stufe). Haben Sie mehrere 
Abschnitte definiert, miissen Sie die Ergebnisse der einzelnen 
Abschnitte aufsummieren. Zu beachten ist, daB bei der ENV- 
Anweisung auf die Angabe des Parameters ‘Dauer* in der ent- 
sprechenden SOUND-Anweisung verzichtet werden kann, da die 
Lautstarkenhiillkurve auch die Lange eines Tones bestimmt. Dies 
gilt allerdings nicht fur die Tonhiillkurve. 

In Ihrem Bedienungshandbuch ist ein Blatt enthalten, auf dem 
Sie die Kurven (eine genauere Bezeichnung ware Rechteck- 
schwingungen) fur Ihre Hiillkurven aufzeichnen kdnnen. Um 
jedoch die Hiillkurven wirklich zu verstehen, ist es besser, 
einfach mit den Parametern zu experimentieren. Um Ihnen dabei 
zu helfen und Ihnen die Arbeit schmackhaft zu machen, finden 
Sie im folgenden zwei Hilfs- bzw. Lernprogramme. Wahrend das 
zweite Programm lediglich eine erweiterte Version des SOUND- 
Hilfe-Programms des letzten Kapitels ist und somit an dieser 
Stelle nicht weiter erlautert werden muB (siehe dazu die ent¬ 
sprechende Programmbeschreibung), bezieht sich das zunachst 
folgende Programm ausschlieBlich auf die ENV-Anweisung. Mit 
kleinen Programmanderungen bezuglich der erlaubten Werte ist 
auch die Anwendung der ENT-Anweisung moglich. Es ist hier 
die ENV-Anweisung gewahlt worden, da mit ihr ein groBeres 
MaB an Veranderungen zu erreichen ist. Das Programm bietet 
weiterhin eine sinnvolle Verknupfung der Befehle INK, KEY 
DEF, LOCATE und INKEYS, so daB es durchaus auch fur 
andere Anwendungen exemplarischen Charakter hat. 

Da das Programm iiber eine Tastaturabfrage (INKEYS) gesteuert 
wird und in der Regel keine Eriauterungen zur Programm- 
benutzung ausgegeben werden, um das "Bild" (genauer die 
Tabelle), das Sie nach dem Programmstart auf dem Bildschirm 
sehen, nicht zu beeintrachtigen, ist eine kurze Aufstellung der 
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moglichen Eingaben notwendig. Dazu miissen Sie sich die Pro- 
grammsteuerung in zwei verschiedenen Ebenen vorstellen. In der 
ersten Ebene konnen Sie bestimmen, fiir welchen Hiillkur- 
venabschnitt die Parameter bestimmt bzw. verandert werden 
sollen. Zu diesem Zweck stehen Ihnen die Tasten "1", "2", "3", 
”4" und "5" zur Verfiigung. Haben Sie eine dieser Tasten 
gedriickt, so blinkt diese auf, um Ihnen den aktuellen Hullkur- 
venabschnitt anzuzeigen. Weiterhin haben Sie in dieser Ebene 
die Mdglichkeit, die Parameter ‘Schrittanzahl 1 (Eingabe "a"), 
‘Schrittweite 1 (Eingabe "w") oder ‘Schrittzeit‘ (Eingabe "z") auf- 
zurufen, um diese zu verandern. Der aktuelle Parameter blinkt 
ebenfalls auf. Die Eingabe eines dieser drei Buchstaben bewirkt 
einen Sprung in die zweite Ebene. Dort haben Sie dann die 
Mdglichkeit, durch Betatigung der Taste "Cursor hoch" Oder 
"Cursor runter”, den Wert des jeweiligen Parameters fiir den 
aktuellen Hiillkurvenabschnitt zu erhohen oder zu vermindern. 
Dabei ist programmtechnisch dafiir gesorgt, daB nur erlaubte 
Werte auftreten kdnnen. Verlassen konnen Sie diese zweite 
Ebene, indem Sie einfach die RETURN- oder die ENTER- 
Taste driicken. Sie befinden sich dann wieder in der ersten 
Ebene und haben dort durch Betatigung der Leertaste die Gele- 
genheit, die Hiillkurve erklingen zu lassen (in Verbindung mit 
einer anderbaren SOUND-Anweisung, siehe Programm). 
AnschlieRend kdnnen Sie das Programm beenden oder aber wei- 
ter Veranderungen vornehmen. Eine entsprechende Anweisung 
wird an dieser Stelle ausgegeben. 

Vielleicht hat Sie diese Anleitung zur Programmbenutzung so 
sehr verwirrt, daB Sie keine Lust mehr haben, das Listing abzu- 
tippen. Aber lassen Sie sich nicht irritieren. Sie werden sehr 
schnell den Umgang mit den entsprechenden Tasten im Griff 
haben und sich auf die eigentliche "Arbeit" konzentrieren kdn- 
nen. Viel Spafi. 


10 REM Huellkurven- und SOUND-Hilfe 
20 MODE 2 

30 WINDOW #0,1,25,1,25:WINDOW #1,26,80,1,25 
40 PRINT"Wieviele ENV-":INPUT"Anweisungen ";n1:PRINT 
50 FOR i=1 TO nl 
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60 GOSU8 430 

70 ENV hn,sa(1),sw(1),sz(1),sa(2),sw(2),sz(2),sa(3),sw(3),sz(3), 
sa(4),sw(4),sz(4),sa(5),su(5),sz(5) 

80 PRINT#1,"ENV,";hn; 

90 FOR i1=1 TO aa 

100 PRINT#1,",sa(i1);",sw(i1);sz(i1); 

110 NEXT il:PR I NT#1 
120 NEXT i:PRINT:PRI NT 

130 PRINT"Uieviele ENT-":INPUT"Anweisungen ";n1:PRINT 
140 FOR i=1 TO nl 
150 GOSU8 430 

160 ENT hn,sa(1),sw(1),sz(1),sa(2),sw(2),sz(2),sa(3),su(3),sz(3), 
sa(4),sw(4),sz(4),sa(5),sw(5),sz(5) 

170 PRINT#1,"ENT,";hn; 

180 FOR i1=1 TO aa 

190 PRINT#1,",";sa<i1);",";sw(i1sz(i1>; 

200 NEXT il:PR I NT #1 
210 NEXT i:PRINT:PRINT 

220 PRINT"Uie viele SOUND-":!NPUT"Anweisungen ";n 
230 DIM k(n),t(n),d(n),l(n),lh(n),th(n),gp(n) 

240 PRINT:PRINT:FOR i=1 TO n 
250 PRINT i".te Anweisung":PRINT 


260 INPUT"Kanal ";k(i) 
270 INPUT"Ton ";t(i) 
280 INPUT"Dauer ";d(i) 
290 INPUT"Lautstaerke ";l(i) 
300 PRINT"Lautstaerken-" 

310 INPUT"huellkurve ";lh(i) 
320 INPUT"Tonhuellkurve ";th(i> 
330 PRINT"Geraeusch-" 

340 INPUT"periode ";gp(i> 


350 PRINT#1,"SOUND";k(it(i);",";d(il(ilh(i);"," 
th(i);»,";gp(i) 

360 PRINT:PRINT:NEXT i 
370 FOR i=1 TO n 

380 SOUND k(i),t(i),d(i),l(i),lh(i),th(i),gp(i) 

390 NEXT i 

400 PRINT:PRINT:PRINT:PRINT"Noch einmal ab-":INPUT"spielen (j'/n) 
";a$ 

410 IF a$="j" THEN 370 
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420 IF a$="n" THEN MODE 1:END ELSE GOTO 400 

430 REM UP HuelIkurveneingaben 

440 PRINT"HueUkurven-":INPUT"nurmer ";hn 

450 PRINT"Wieviele":INPUT"Abschnitte ";aa 

460 FOR i1=1 TO aa 

470 PRINT i1;".ter Abschnitt:" 

480 PRINT"Schritt" 

490 INPUT"-anzahl ";sa(i1> 

500 INPUT"-weite sw( 1 1) 

510 INPUT“-zeit ";sz(i1) 

520 NEXT i1 
530 RETURN 


Variablenliste: 

a$ vom Computer zuriickgegebener String 

ha Hiillkurvenabschnitt 

i Laufindex 

sa(i) Schrittanzahl 

sw(i) Schrittweite 

sz(i) Schrittzeit 

td Dauer des Tons in Hundertstelsekunden 


Programmbeschreibung : 

10 Kommentar 

20 LOschen des Bildschirms 

30-50 Ausgabe der Tabelleniiberschriften 

60-70 Belegung der "Cursor-hoch-Taste" mit dem Buch- 

staben "o" und der "Cursor-runter-Taste" mit dem 
Buchstaben "u". 

80 Dem 2. Farbstift werden die Farben hellgelb und 

blau (blinkend) zugeordnet. 
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90 Die Variable "Hiillkurvenabschnitt" wird mit dem 

Startwert 1 belegt. 

100-160 Abfrage der Tastatur. Wenn eine Zahl zwischen 1 
und 5 eingegeben wird (Satz 110), verandert sich 
der aktuelle Wert fur den Hiillkurvenabschnitt 
entsprechend (ha=VAL(a$)), und der aktuelle Wert 
wird blinkend (PEN 2) in der Tabelleniiberschrift 
(LOCATE 10+5*ha) ausgegeben, nachdem der 
davor aktuelle Wert fur ‘ha‘ mit der Farbstiftnum- 
mer 1 uberschrieben worden ist (die ersten beiden 
Anweisungen hinter THEN). In den Zeilen 120- 
140 erfolgt eine Verzweigung in entsprechende 
Unterprogramme, je nachdem, ob die Schrittanzahl 
(Satz 120), die Schrittweite (Satz 130) Oder die 
Schrittzeit (Satz 140) fur den aktuellen Hiillkur- 
venabschnitt verandert werden soli. Wird die 
Leertaste gedriickt, erfolgt eine Verzweigung zur 
Musikausgabe (Satz 150). Satz 160 dient der 
"dauernden" Abfrage der Tastatur (wenn die Tasten 
der Satze 110-150 noch nicht gedriickt wurden). 

170-200 Die Dauer des durch die ENV-Anweisung 

bestimmten Tons wird berechnet. 

210-220 Ausfuhrung der ENV-Anweisung in Verbindung 

mit einer SOUND-Anweisung, die der Programm- 
benutzer natiirlich auch andern kann. 

230 Definition eines Bildschirmfensters 

240-250 In dem definierten Fenster werden die Tondauer 

(siehe Satz 170-200) und eine Anweisung zur Pro- 
grammfortsetzung ausgegeben. 

260-270 Je nach gedriickter Taste wird das definierte Fen¬ 
ster gelOscht und das Programm fortgesetzt, Oder 
das Programmende ist erreicht. 
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280-340 Unterprogramm zur Veranderung der Schrittanzahl 
fur den aktuellen Hiillkurvenabschnitt. In Satz 290 
wird die Tabellenuberschrift "Schrittanzahl" blin- 
kend ausgegeben. Dies wird vor dem Rucksprung 
aus dem Unterprogramm wieder aufgehoben (siehe 
Satz 330). In den Satzen 300-340 wird wiederum 
die Tastatur abgefragt. Wenn die Taste "Cursor- 
hoch" gedriickt wird (Satz 310), erhoht sich der 
Parameter ‘Schrittanzahl* jeweils um 1, und der 
neue Wert fur die Schrittanzahl wird in die Tabelle 
eingetragen. Dabei kann der Wert dieses Parameters 
nicht groBer als 127 werden. Entsprechend wird 
verfahren, wenn die "Cursor-runter-Taste" 
gedriickt wird (Satz 320, Verminderung des Para- 
meterwertes). Die Betatigung der RETURN- Oder 
der ENTER-Taste fiihrt in Satz 330 zum Ruck- 
sprung aus dem Unterprogramm. Satz 340 dient der 
"dauernden" Tastaturabfrage. 

350-480 Unterprogramme zur Veranderung der Schrittweite 
und der Schrittzeit (jeweils fur den aktuellen Hiill- 
kurvenabschnitt). Es wird hier nach dem gleichen 
Muster wie im vorangegangenen Programm ver¬ 
fahren. 


Wie schon oben angekiindigt, folgt nun direkt die erweiterte 
Version des SOUND-Hilfe-Programms aus dem letzten Kapitel: 


Variablenliste: 

aa Anzahl der Hiillkurvenabschnitte 

a$ Antwortstring (j,n) 

d(i) Dauer 

i Laufindex 

il Laufindex 

gp(i) Gerauschperiode 

hn Hiillkurvennummer 

k(i) Kanal 
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l(i) LautstSrke 

lh(i) Lautst&rkenhullkurve 

n Anzahl der SOUND-Anweisungen 

nl Anzahl der ENV- bzw. ENT-Anweisungen 

t(i) Tonperiode 

th(i) Tonhiillkurve 

sa(i) Schrittanzahl 

sw(i) Schrittweite 

sz(i) Schrittzeit 


Programmbeschreibung: 

10 Kommentar 

20 Umschalten auf den 80-Zeichen-Modus 

30 Zwei Bildschirmfenster werden definiert. Fenster 0 

dient dabei der Dateneingabe, und Fenster 1 wird 
zur Ausgabe der gesetzten Hiillkurven- und 
SOUND-Anweisungen genutzt. 

40 Eingabe der Anzahl der ENV-Anweisungen 

50-120 Fur nl ENV-Anweisungen werden im Unterpro- 

gramm (Satz 430-530) die Parameter eingegeben, 
die Anweisungen werden direkt ausgefuhrt (Satz 
70) und dann anschlieBend im 1. Fenster ausgege- 
ben (Satz 80-110). Da die Parametereingaben iden- 
tisch mit den Eingaben zur ENT-Anweisung sind, 
wird hier auf die Unterprogrammtechnik zuruck- 
gegriffen. Nicht erlaubte Eingaben werden nicht 
abgefangen. Fur die Ausgabe aller Anweisungen 
(also ENT+ENV+SOUND-Anweisungen) stehen im 
rechten Bildschirmbereich insgesamt 25 Zeilen zur 
Verfugung. Sollte dieser Platz nicht ausreichen, ist 
ein Scrollen dieses Bildschirmteils unvermeidbar. 

130-210 Nach dem gleichen Muster (siehe Satz 40-120) 
werden die ENT-Anweisungen bestimmt. 
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220-420 Nach dem Muster des 2. Programms in Kapitel 7.3 
werden die SOUND-Anweisungen bestimmt und 
ausgefiihrt. Hier werden jedoch alle Parameter 
dieser Anweisung berucksichtigt. Nach dem 
Abspielen besteht die Moglichkeit,dies zu wieder- 
holen oder das Programm zu beenden (Satz 400- 
420). 

430-530 Unterprogramm zur Eingabe der Hullkurvenpara- 
meter 


7.5 Weitere Beispiele 

Die folgenden vier Beispielprogramme konnen Sie zur musikali- 
schen Untermalung Ihrer Programme einsetzen. In der jeweils 
ersten Programmzeile befinden sich die Programmtitel. Ob diese 
Titel immer richtig gewahlt worden sind, bleibt natiirlich Ihrer 
Phantasie iiberlassen. Zudem gilt auch hier, daB kleine Veran- 
derungen sehr viel bewirken kOnnen. Probieren Sie es aus! 


10 REM ZufalIsmelodie 
20 SOUND 1,RND*4095 
30 SOUND 2,RND*3500 
40 SOUND 4,RND*2500 
50 GOTO 20 


10 REM E i genkcxnpos i t i on 
20 REM **************** 

30 ENT •1,3,1,1,3,-1,1:REM leicht schwingende Toene, fuer die 
Dauer eines Tones wiederholt sich die Hueltkurve staendig 
40 DATA 236,25,213,25,190,50,236,25,213,25,190,50,236,25,213,25 
50 DATA 190,50,142,25,127,25,119,50,127,25,142,25,159,150 
60 DATA 179,25,159,25,142,50,159,25,179,25,190,150,-1,0 
70 READ t,d 

80 IF t=-1 THEN RESTORE:GOTO 70:REM Abbruch durch 2*ESC 
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90 SOUND 2,t,d,12,0,1 
100 SOUND 1,t/2,d,12,0,1 
110 SOUND 4,t*2,d,12,0,1 
120 GOTO 70 


10 REM fliegende Untertasse 
20 FOR t=200 TO 300 STEP 10 
30 SOUND 1,t,1 
40 NEXT t 

50 FOR t=300 TO 200 STEP -10 
60 SOUND 1,t, 1 
70 NEXT t 
80 GOTO 20 


10 REM Alarm 

20 FOR n=600 TO 160 STEP -20 
30 SOUND 1,n,3 
40 NEXT 
60 GOTO 20 
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8. Das Diskettenlaufwerk 


8.1 Einfiihrung 

Im bisherigen Verlauf dieses Buches ist die Nutzung des Dis- 
kettenlaufwerks noch nicht naher betrachtet worden. Naturlich 
wissen Sie, daB die Informationen, die sich im Arbeitsspeicher 
Ihres Rechners befinden, verlorengehen, wenn Sie den Rechner 
ausschalten. Daher haben Sie Ihre Programme mit dem Befehl 
SAVE auf eine Diskette uberspielt, um sie bei Bedarf wieder 
mit LOAD einlesen zu kdnnen. Vielleicht haben Sie auch schon 
die Befehle CHAIN, CHAIN MERGE und MERGE kennenge- 
lernt, mit denen Sie einzelne Programme mischen kdnnen. Diese 
Moglichkeit ist insbesondere dann wichtig, wenn die Lange Ihrer 
Programme die Speicherkapazitat Ihres Rechners ubersteigt. 
Aber auch fur die praktische Programmierarbeit kann es zum 
Beispiel sinnvoll sein, einzelne Programmteile eines "fremden" 
Programms zusatzlich einzuspielen. 

Das Diskettenlaufwerk eignet sich aber dariiber hinaus zur 
Speicherung grdBerer Datenmengen. In vielen Programmen 
kommt es vor, daB wahrend des Programmablaufs Informationen 
(Daten) auf die Diskette geschrieben bzw. von ihr gelesen wer- 
den (interaktive Diskettenbenutzung). Alle Daten zusammenge- 
nommen ergeben dann eine Datei. Wie man solche Dateien mit 
Schneider-BASIC und den zusatzlichen 64 KByte Ihres CPC 
6128 bearbeiten kann, soli in diesem Kapitel naher beleuchtet 
werden. 


8.2 Sequentielle Datenspeicherung 

Sequentielle Datenspeicherung heiBt eigentlich nichts anderes, als 
daB die Daten Zeichen fur Zeichen hintereinander gespeichert 
werden. In dieser Reihenfolge konnen die Daten auch nur wie¬ 
der eingelesen werden. Wenn Sie beispielsweise das letzte Zei¬ 
chen einer Datei lesen wollen, miissen Sie somit zuerst die 
gesamte Datei einlesen bzw. alle vorangestellten Zeichen uberle- 
sen. Diese Art der Dateibearbeitung wird auch bei der Nutzung 
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eines Cassettenlaufwerks angewandt (obgleich sich da das Laden 
und Speichern erheblich langsamer vollzieht). 

Fur einfachere Probleme ist die sequentielle Dateibearbeitung 
vollkommen ausreichend. Im folgenden soli sie anhand eines 
Beispiels n&her erlautert werden. 

In vielen EDV-Fachbiichern dient die Erstellung einer Adres- 
senverwaltung als Beispiel fur die interaktive Diskettennutzung. 
Auch die Einrichtung eines Telefonregisters ist sehr beliebt 
(siehe Benutzerhandbuch). Um Ihnen hier einen anderen 
Anwendungsbereich aufzuzeigen, haben wir fur dieses Kapitel 
die Erstellung und Bearbeitung einer Buchdatei gewahlt, mit der 
Sie Ihren Buchbestand verwalten kbnnen. 

Bevor man sich an den Rechner setzt, muB erst einmal die Frage 
gekiart werden, was uberhaupt gespeichert werden soil. In 
unserem Beispiel ist es sinnvoll, fur jedes Buch die folgenden 
Angaben zu speichern: 

1) Name des Autors 

2) Vorname des Autors 

3) Titel des Buches 

Diese drei Angaben zu einem Buch gehdren quasi zusammen. 
Man nennt sie einen Datensatz oder auch record. Die gesamte 
Datei besteht also aus Datensatzen, wobei jeder Datensatz die 
Informationen zu einem Buch enthait. Unsere Datensatze beste- 
hen aus den oben angegebenen drei unterschiedlichen Daten. 
Diese Einzelinformationen werden auch Datenfelder oder ein- 
fach Felder genannt. Unser erster Datensatz konnte folgendes 
Aussehen haben: 

Feld 1 : Kowal 
Feld 2 : Bernd 

Feld 3 : Das Ideenbuch zum CPC 

Mit den Kommandos PRINT oder WRITE konnen Sie die Daten 
auf die Diskette schreiben. Dabei ist die Stream-Nummer 9 
anzugeben. Vorher miissen Sie allerdings eine Eingabedatei mit 
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dem Kommando OPENOUT eroffnen, die dann anschlieBend 
mit CLOSEOUT wieder geschlossen wird. Zum Einlesen der 
Daten benutzen Sie die Kommandos OPENIN, INPUT bzw. 
LINE INPUT (plus Stream-Nummer 9) und CLOSEIN. Natiirlich 
mussen Sie beim Einlesen beachten, welche Daten wie abge- 
speichert wurden. In Kapitel 8.2.1 werden wir die Unterschiede 
zwischen PRINT und WRITE auf der einen, sowie INPUT und 
LINE INPUT auf der anderen Seite nSher beleuchten. 

Auch die Anzahl der Datenfelder, die eingelesen werden sollen, 
ist wichtig. Entweder ist sie Ihnen bekannt, so daB Sie die Ein- 
leseroutine entsprechend gestalten konnen, oder Sie mussen mit 
der EOF-Funktion priifen, ob das Dateiende erreicht ist. Da wir 
in dem unten aufgefiihrten Programmbeispiel nicht mit der 
EOF-Funktion arbeiten, soil hier ein kurzes Beispiel fur eine 
flexible Einleseroutine vorgestellt werden: 


10 REM flexible Einleseroutine 
20 OPENIN"Datei" 

30 WHILE NOT EOF 
AO INPUT #9,a$ 

50 PRINT a$ 

60 WEND 
70 CLOSEIN 
80 END 


Da jedes Feld einzeln eingelesen und dann wiederum auf EOF 
getestet wird, ist hier ein EOF-MET-Error ausgeschlossen. 

Kommen wir zuriick zu unserem Beispiel. Natiirlich wollen wir 
unsere Autorennamen und Buchtitel nicht nur einfach abspei- 
chern und einlesen, sondern wir wollen die Daten auch auswer- 
ten bzw. verarbeiten. Neben den grunds&tzlichen Programm- 
funktionen der Dateneingabe (iiber die Tastatur) und der Bild- 
schirmausgabe stehen Ihnen daher noch die folgenden Funktio- 
nen zur Verfiigung: 
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Daten suchen 
Daten korrigieren 
Daten ldschen 

Insbesondere die Funktion ‘Daten suchen‘ kann sich dabei als 
sehr wichtig erweisen. So gibt Ihnen der Rechner beispielsweise 
nach der Eingabe eines Stichwortes die Buchtitel aus, in denen 
dieses Stichwort vorkommt. Falls Sie hSufig "wissenschaftlich" 
arbeiten, kdnnen Sie auch noch zusdtzliche Felder bilden, die 
eine kleine Inhaltsangabe zu jedem Buch enthalten. Wollen Sie 
dann die Literatur zu einem Thema zusammenstellen, kdnnen Sie 
Ihren Rechner einfach suchen lassen. Auch die Speicherung 
wichtiger Zitate kdnnte sehr hilfreich sein. Sie sehen also, daB 
die Erweiterung dieses Programms, gemSB Ihrer individuellen 
Bediirfnisse, durchaus ratsam ist. 

Aber kommen wir endlich zum Programmlisting: 


10 REM Buchdatei 

20 DIM n$(500),v$(500),t$(500) 

30 REM Menue 

40 MODE 1: PR I NT TAB(32)"Eingabe":PRINT:PRINT 
50 PRINT"Daten eingeben";TAB(35)"1":PRlNT 
60 PRINT"BiIdschirmausgabe";TAB(35)"2":PRINT 
70 PRINT"Daten speichern";TAB(35)"3":PRINT 
80 PRINT ,, Daten einlesen";TAB(35)"4":PRINT 
90 PRINT"Daten suchen";TAB(35)"5":PRINT 
100 PRINT"Daten korrigieren";TAB(35)"6":PRINT 
110 PRINT"Daten loeschen";TAB(35) ,, 7":PRINT 
120 PRINT"Programm beenden";TAB(35)"8":PRINT 
130 PR I NT:PR I NT:PR I NT:INPUT"Ihre Wahl ";a 
140 IF a<1 OR a>8 THEN 40 

150 MODE 2:ON a GOTO 160,260,400,480,560,870,970,1110 

160 WINDOW #1,1,80,23,25:WINDOW #0,1,80,1,20 

170 PRINT#1."Die Eingabe wird beendet, wenn Sie fuer 'Name des 

Autors* nur die" 

180 PRINT#1,"RETURN-Taste druecken !" 

190 k=k+1 

200 PRINT k;".ter Datensatz:":PRINT:PRINT 
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210 GOSUB 1160:LINE INPUT n$(k):PRINT 

220 IF n$(k)="" THEN k=k-1:WINDOW #0,1,80,1,25:G0T0 40 

230 GOSUB 1170:LINE INPUT v$(k):PRINT 

240 GOSUB 1180:LINE INPUT t$(k):PRINT:PRINT:PRINT 

250 GOTO 190 

260 PRINT"Es stehen";k;"Datensaetze zur Verfuegung":PRINT:PRINT: 
PRINT 

270 IF k<1 THEN GOSUB 1190:GOTO 40 

280 PR INT"Ausgabe":PR I NT:PR I NT 

290 INPUT"von Datensatznummer ";aa:PRINT 

300 IF aa<1 OR aa>k THEN 290 

310 INPUT"bis Datensatznummer ";ae 

320 IF ae<1 OR ae>k THEN 310 

330 CLS:FOR i=aa TO ae 

340 PRINT i;".ter Datensatz :“:PR I NT:PR I NT:PR I NT 
350 GOSUB 1160: PR I NT": ,, ;n$( i) :PRINT 
360 GOSUB 1170:PRINT": v$(i):PRINT 

370 GOSUB 1180:PRINT": ";t$(i) 

380 GOSUB 1190 
390 NEXT i:GOT0 40 
400 OPENOUT"Datei" 

410 PRINTS,k 
420 FOR i=1 TO k 
430 PRINT#9,n$(i) 

440 PRINT#9,v$(i) 

450 PRINT#9,t$(i) 

460 NEXT i 

470 CLOSEOUT:GOTO 40 
480 OPENIN"Datei" 

490 INPUT#9,k 

500 FOR i=1 TO k 

510 LINE INPUT#9,n$(i) 

520 LINE INPUT#9,v$(i) 

530 LINE INPUT#9,t$(i) 

540 NEXT i 

550 CLOSEIN:GOTO 40 

560 PRINT"Wonach soil gesucht werden ?":PRINT:PRINT:PRINT 
570 PRINT TAB(50)"Eingabe":PRINT:PR I NT 
580 GOSUB 1160: PR I NT TAB(53) ,, 1 ,, :PRINT 
590 GOSUB 1170:PR I NT TAB(53)"2»:PRINT 
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600 GOSUB 1180:PR I NT TAB(53)"3":PRINT 

610 PRINT"Stichwort (in einem Buchtitel)";:PRINT TAB(53)"4":PR1NT 
620 PRINT:PR I NT:INPUT"lhre Wahl ";a 
630 IF a<1 OR a>4 THEN CLS:GOTO 560 

640 PRINT:PRINT:PRINT:INPUT"Geben Sie den Suchstring ein ";s$:CLS 

650 ON a GOTO 660,690,720,750 

660 FOR i=1 TO k 

670 IF s$=n$(i) THEN GOSUB 790 

680 NEXT i:GOTO 780 

690 FOR i=1 TO k 

700 IF s$=v$(i) THEN GOSUB 790 

710 NEXT i:GOTO 780 

720 FOR i=1 TO k 

730 IF s$=t$(i) THEN GOSUB 790 

740 NEXT i:GOTO 780 

750 FOR i=1 TO k 

760 IF INSTR(t$(i),s$)>0 THEN GOSUB 790 
770 NEXT i 

780 PRINT:PRINT:PRINT"Suchstring nicht bzw. in keinem weiteren 
Datensatz gefunden":GOSUB 1190:GOTO 40 

790 PRINT"Der Suchstring befindet sich im";iten Datensatz 

:":PRINT:PRINT:PRINT 

800 GOSUB 1160:PR I NT n$(i):PRINT 

810 GOSUB 1170:PR I NT v$(i):PRINT 

820 GOSUB 1180:PRINT t$(i):PRINT:PRINT:PRINT 

830 INPUT"Soll weiter gesucht werden (j,n) ";a$ 

840 IF a$="n" THEN 40 
850 IF a$<>"j" THEN 830 
860 CLS:RETURN 

870 INPUT"Welcher Datensatz soil korrigiert werden 

";dk:PRINT:PRINT 

880 IF dk<1 OR dk>k THEN 870 

890 GOSUB 1160:PRINT n$(dk):PRINT 

900 GOSUB 1170:PR I NT v$(dk):PRINT 

910 GOSUB 1180:PR I NT t$(dk):PRINT:PRINT 

920 PRINT"Wie heisst es richtig ?":PRINT:PRINT:PRINT 

930 GOSUB 1160:LINE INPUT n$(dk):PRINT 

940 GOSUB 1170:LINE INPUT vS(dk):PRINT 

950 GOSUB 1180:LINE INPUT t$(dk):PRINT:PRINT:PRINT 

960 GOTO 40 
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970 INPUT"Uelcher Datensatz soil geloescht werden ";dk:PRINT:PRINT 

980 IF dk<1 OR dk>k THEN 970 

990 GOSUB 1160:PR I NT n$(dk):PRINT 

1000 GOSUB 1170:PR I NT v$(dk):PRINT 

1010 GOSUB 1180:PR I NT t$(dk):PRINT:PRINT:PRINT 

1020 INPUT"wirklich loeschen (j,n) ";a$ 

1030 IF a$="n" THEN 40 
1040 IF a$<>"j" THEN 1020 
1050 FOR i=dk TO k-1 
1060 n$(i)=n$(i+1) 

1070 v$(i)=v$(i+1) 

1080 t$(i)=t$(i+1) 

1090 NEXT i 
1100 k=k-1:GOTO 40 

1110 MODE 1:PRINT"Auch alles abgespeichert ?" 

1120 PRINT:PRINT"FalIs nicht, einfach GOTO 40 eingeben." 

1130 PRINT :PRINT :PRINT"Auf Wiedersehen ! : PR I NT: PR I NT 
1140 END 

1150 REM Unterprogramme zum Eingabe- Ausgabetext 

1160 PRINT"Name des Autors :RETURN 

1170 PRINT"Vorname des Autors ";:RETURN 

1180 PRINT"Titel des Buches :RETURN 

1190 REM UP Warten 

1200 LOCATE 5,25 

1210 PRINT"Bitte eine Taste druecken !" 

1220 a$=INKEY$:IF a$="" THEN 1220 
1230 CLS:RETURN 


Variablenliste: 


a 

Antwort ‘Meniiauswahl* 

a$ 

Antwortstring (j,n) 

aa 

erster Datensatz im Programmteil 


"Bildschirmausgabe" 

ae 

letzter Datensatz im Programmteil 


"Bildschirmausgabe" 

dk 

Nummer des zu korrigierenden Datensatzes 

i 

Laufindex 



204 


Das groBe BASIC-Buch zum CPC 6128 


k 

Anzahl der DatensStze 

n$(i) 

Name des Autors 

s$ 

Suchstring 

t$(i) 

Titel des Buches 

v$(i) 

Vorname des Autors 


Programmbeschreibung: 

10 Kommentar 

20 Speicherplatzreservierung fur jeweils 500 Namen, 

Vornamen und Titel 

30-120 Kommentar, Umschaltung auf den 40-Zeichen- 
Modus und Ausgabe des Menus 

130-150 Eingabe eines Wertes zur Meniiauswahl, Umschal¬ 
tung auf den 80-Zeichen-Modus und Programm- 
verzweigungen 

160-250 Eingabe der Datensatze. Dazu werden in Zeile 160 

zwei Bildschirmfenster definiert. WShrend im 1. 
Fenster ein Kommentar zum Eingabeabbruch aus- 
gegeben wird, dient das 0. Fenster der Eingabe der 
einzelnen Datenfelder. Vor jeder Eingabe wird die 
ZShlvariable k um 1 erhoht. k dient somit als 
Index fur die 3 Felder des Datensatzes. Um auch 
Kommas und Anfiihrungszeichen speichern zu 
kdnnen, wird hier mit LINE INPUT gearbeitet. 
Vor jeder Eingabe wird mit Hilfe der Unterpro- 
gramme (Satz 1160-1180) ein Text ausgegeben. In 
Zeile 250 erfolgt ein Rucksprung zur Fortsetzung 
der Eingabe. Bei einem Eingabeabbruch (Satz 220) 
wird die schon um 1 erhdhte Variable k wieder 
vermindert, das 0. Fenster wird neu definiert 
(gesamter Bildschirm), und es wird zum Haupt- 
menii (ab Zeile 40) verzweigt. 
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260-390 Bildschirmausgabe der Datensatze. Nach einer 
Kommentarausgabe (Zeile 260) erfolgt eine Ein- 
gabe bezuglich der Datensatze, die ausgegeben 
werden sollen. Falsche Oder nicht mogliche Einga- 
ben werden dabei naturlich abgefangen. In den 
Zeilen 330-390 werden dann die Datensatze ausge¬ 
geben, jeweils unterbrochen durch die Warte- 
schleife (Unterprogramm "Warten", Satz 1190). 
AnschlieBend erfolgt ein Riicksprung zum Haupt- 
menii. 

400-470 Ausgabe der Daten auf Diskette und Riicksprung 
zum Hauptmenii Bevor die Daten Datensatz fur 
Datensatz gespeichert werden, wird der Wert der 
Variablen k auf Diskette ubertragen (siehe Einle- 
seroutine). 

480-550 So wie die Daten gespeichert wurden, werden sie 
auch wieder eingelesen. Der Wert fur k wird dabei 
zuerst eingelesen, um dann anschlieBend eine 
Schleife zum Einlesen der Datensatze bilden zu 
konnen. Es wird hier mit LINE INPUT gearbeitet, 
um auch Kommas und Anfiihrungszeichen iiber- 
nehmen zu konnen (siehe dazu auch Kapitel 8.2.1). 

560-860 In diesem Programmteil wird nach einem einzuge- 
benden String gesucht. Dabei kann es sich um 
einen Namen oder Vornamen, einen Titel Oder um 
ein Stichwort handeln. Nach einer Menuauswahl 
(Zeile 560-630) und der Eingabe des Suchstrings 
(Zeile 640) erfolgt in den Zeilen 660-770 die 
eigentliche Sucharbeit. Dabei wird in den Zeilen 
660-680 nach einem Namen, in den Zeilen 690-710 
nach einem Vornamen, in den Zeilen 720-740 nach 
einem Titel und in den Zeilen 750-770 nach einem 
Stichwort gesucht (die entsprechende Verzweigung 
gemaB der Menuauswahl erfolgte in Satz 650). 
Immer wenn der gesuchte String gefunden wurde, 
wird das Unterprogramm ab Satz 790 angesprun- 
gen, um den jeweiligen Datensatz auszugeben. Je 
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nach Wahl des Programmbenutzers (siehe Satz 830) 
kann dann die Suche fortgesetzt werden, oder es 
wird zum Hauptmenu verzweigt. Nach AbschluB 
der Sucharbeit, wenn alle Datensatze durchlaufen 
sind, folgt in Satz 780 ein Kommentarausdruck und 
der Riicksprung zum Hauptmenu. 

870-960 Ein Datensatz wird korrigiert. Hier wird der 

gewiinschte Datensatz zuerst ausgegeben. Sodann 
kOnnen die entsprechenden Felder neu belegt wer¬ 
den, und es wird zum Hauptmenu verzweigt. 

970-1100 In diesem Programmteil kann ein Datensatz 

geldscht werden. Nach Ausgabe des Datensatzes 
und einer Sicherheitsabfrage (Satz 1020) wird der 
Datensatz in den Zeilen 1050-1090 geldscht. Befin- 
den sich beispielsweise 20 Datensatze im Pro- 
grammspeicher und soil der 10. Datensatz geldscht 
werden, so wird der 11. Datensatz zum 10. Daten¬ 
satz, der 12. wird zum 11. ... und der 20. wird zum 
19. Da der letzte Datensatz jetzt zweimal vorhan- 
den ist (an 19. und 20. Stelle), wird k vor dem 
Riicksprung zum Hauptmenu um 1 vermindert. 

1110-1140 Das Programm wird nach einer Kommentarausgabe 
beendet. 

1150-1180 Unterprogramme fur hiiufig benutzte Texte 

1190-1230 Unterprogramm "Warten" und Ldschen des Bild- 
schirms 


8.2.1 PRINT und WRITE, INPUT und LINE INPUT im 
Vergleich 

Sie werden sich vielleicht wundern, aber die Ein- und Ausgabe 
auf Diskette unterscheidet sich nicht allzusehr von der Ein- und 
Ausgabe auf den Bildschirm. Betrachten wir einmal folgendes 
Beispiel: 
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10 REM Beispiel 1 
20 a$="a":b$="b":c$="c" 
30 OPENOUT"datei" 

40 PRINT#9,a$,b$,c$ 

50 CLOSEOUT 
60 OPENIN"datei" 

70 INPUT#9,q$ 

80 PRINT q$ 

90 CLOSE IN 


Im Gegensatz zu der Ausgaberoutine in dem Programm des 
letzten Kapitels werden hier die einzelnen Felder bzw. Variablen 
nur durch ein Semikolon getrennt in einem PRINT-Statement 
aufgefiihrt. Dies hat zur Folge, daB, ahnlich wie bei der Bild- 
schirmausgabe, die einzelnen Variablen hintereinander auf die 
Diskette geschrieben werden. Die Besonderheit bei der Floppy- 
Ausgabe liegt jedoch darin, daB diese hintereinander geschriebe- 
nen Variablen ein Datenfeld darstellen, das heiBt, daB ein Feld 
bzw. eine Variable ausreicht, um alle drei Variablenwerte aufzu- 
nehmen. So kommt es, daB Sie fur q$ 

abc 

erhalten. Wenn Sie in Zeile 40 anstatt der Semikolons Kommas 
verwenden, erhalten Sie folgendes Ergebnis: 

abc 

Wie bei der Bildschirmausgabe werden auch auf der Diskette 
LeerrSume gebildet (eine nicht gerade speicherplatzsparende 
Programmierung). Naturlich reicht wieder eine Variable aus, um 
die drei Werte zu ubernehmen. 


Sie werden es schon erraten haben: Das logische Trennzeichen 
Carriage Return (Wagenriicklauf, RETURN- Oder ENTER- 
Taste) muB zwischen die Daten gesetzt werden, damit die ein- 
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zelnen Felder auch auf der Diskette als unabhSngig erkannt 
werden. Wenn Sie somit zwei zusStzliche Zeilen bilden, um b$ 
und c$ in einem gesonderten PRINT-Statement abzuspeichern, 
so erhalten Sie fur q$ nur noch den Wert ‘a‘. 

Das bisher Gesagte gilt jedoch nur fur Stringvariablen. Bei 
numerischen Variablen kbnnen Sie durchaus mehrere Variablen 
in einem PRINT-Befehl auffuhren, die dann auch beim Einlesen 
als unabhangig erkannt werden. 

Zum INPUT-Statement laBt sich nur sagen, dafl es dort voll- 
kommen egal ist, ob Sie einen Datensatz in einer INPUT- 
Anweisung oder aber Feld fur Feld getrennt einlesen. 

Aber was ist, wenn Sie in Zeile 40 den String "jaja" auf Dis¬ 
kette schreiben? Dann erhalten Sie nicht etwa, wie Sie vielleicht 
vermuten wiirden, 

ja,ja 

fur q$, sondern lediglich 
ja 

Das Komma wird also vom INPUT-Statement als Trennzeichen 
aufgefaftt. 

Wenn Datenfelder mit INPUT eingelesen werden, so gelten fol- 
gende Zeichen als Trennsymbole: 

Carriage Return 

Komma 

EOF-Marke 

Es sei hier daran erinnert, da!3 auch bei der Tastatureingabe das 
Komma und der Wagenriicklauf als Trennzeichen gelten. 

Beim Einlesen numerischer Variablen kommt noch die Leertaste 
als zusatzliches Trennsymbol hinzu. 
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Wenn Sie das WRITE-Kommando benutzen, wird der String in 
Anfiihrungszeichen gesetzt. Beim Einlesen dieses Strings werden 
nun alle Kommas iibernommen. Die Anfiihrungszeichen werden 
jedoch nicht mit eingelesen (was ja in der Regel auch nicht 
beabsichtigt ist). 


Bei jeder Anwendung muB man sich genau iiberlegen, welche 
Kommandos sich optimal eignen. Auf keinen Fall kann man 
sagen, daB die eine Anweisung der anderen iiberlegen ist Oder 
umgekehrt. Dies ist immer von der jeweiligen Situation abhan- 
gig. Betrachten wir dazu noch einmal ein zweites Beispiel, das 
ziemlich genau die Ausgangssituation in unserem Buchverwal- 
tungsprogramm widerspiegelt: 


10 REM Beispiel 2 
20 LINE INPUT a$ 
30 OPENOUT"datei" 
40 WRlTE#9,a$ 

50 CLOSEOUT 
60 OPENIN"datei" 
70 INPUT#9,q$ 

80 PRINT q$ 

90 CLOSEIN 


Natiirlich gehen wir jetzt nur von dem Spezialfall aus, daB in 
Zeile 20 ein String mit Kommas und Anfiihrungszeichen einge- 
geben wird. Dies fiihrt in diesem Beispiel dazu, daB zwar Kom¬ 
mas iibernommen werden, Anfiihrungszeichen hingegen als 
Trennsymbol aufgefaBt werden. 

Andern wir das Programm dahingehend, daB wir in Zeile 40 das 
PRINT-Statement verwenden, so werden zwar Anfiihrungszei¬ 
chen korrekt iibernommen, Kommas aber als Trennzeichen ver- 
standen. 

Eine weitere Programmanderung bringt uns aber die Losung des 
Problems. Wir belassen in Zeile 40 das PRINT-Statement, lesen 
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aber in Zeile 70 den String nicht mit INPUT, sondern mit LINE 
INPUT ein. Genauso sind wir auch in unserem Buchverwal- 
tungsprogramm verfahren. 

Sollten Sie auf eine Verwendung des WRITE-Statements in Zeile 
40 getippt haben, so probieren Sie am besten selbst aus, was 
dann passiert. 


8.3 Relative Dateien mit AMSDOS 

Im Vergleich zur sequentiellen Dateiverwaltung bietet die Pro- 
grammierung relativer Dateien einige Vorteile. Das besondere 
Kennzeichen relativer Dateien (Files) ist der freie Zugriff auf 
einzelne Datens&tze (daher auch die Begriffe ‘freier Zugriff 4 
oder ‘random access 4 ). Haben Sie zum Beispiel eine Datei mit 
100 Datens&tzen und wollen den 66. Datensatz lesen, so miissen 
Sie bei sequentieller Programmierung alle voranstehenden 
Datens&tze einlesen oder uberlesen, um zu dem gewunschten 66. 
Datensatz zu kommen. Bei einer relativen Datei hingegen kbnnen 
Sie direkt den gewunschten Datensatz lesen. Auch die Suche 
bestimmter Datensatze mit mehr oder weniger komplizierten 
Schleifen, wie es bei sequentiellen Dateien iiblich ist, entfallt. 
Dafur gibt es bei relativen Dateien andere Regeln, die weiter 
unten erlautert werden. Ein weiterer Gesichtspunkt ist die weg- 
fallende Notwendigkeit, eine Datei komplett in den Speicher zu 
lesen, um sie bearbeiten zu kdnnen. Somit braucht man sich 
auch nicht um den durch die entsprechenden DIM-Anweisungen 
knapp werdenden Speicherplatz zu kummern, wenn eine 
umfangreichere Datei komplett eingelesen werden soil. 

Die relative Dateiverwaltung hat aber auch einige Nachteile, so 
daB ihr Einsatz nur dann sinnvoll ist, wenn haufig Zugriffe auf 
die Datei notwendig sind. Bei den meisten kleineren Anwendun- 
gen kann man somit getrost bei der sequentiellen Programmie¬ 
rung bleiben. 

Worin liegen aber nun die Nachteile, oder sagen wir besser, die 
Einschrankungen, auf die man achten muB? 
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Fangen wir bei den Voruberlegungen an. Wahrend die Daten- 
s&tze bei der sequentiellen Dateiverwaltung beliebig lang sein 
kbnnen, muB bei der relativen Dateiverwaltung vorher sorgfaltig 
iiberlegt werden, wie lang ein Datensatz maximal sein wird. Mit 
der LSnge des Datensatzes ist hierbei die Anzahl der Zeichen 
pro Datensatz gemeint. Hat ein Datensatz mehrere Datenfelder, 
was in der Regel der Fall sein diirfte, so ist weiterhin die maxi¬ 
male Lange der einzelnen Datenfelder vorher festzulegen. Fur 
unser Buchverwaltungsprogramm des letzten Kapitels konnten 
wir den drei Datenfeldern die folgenden Maximaliangen- zuord- 
nen: 

1. Feld: 30 Zeichen 

2. Feld: 20 Zeichen 

3. Feld: 100 Zeichen 

Ein Autorenname darf somit nicht mehr als 30 Zeichen lang 
sein, der Vorname ist auf 20 Zeichen beschrankt, und fur den 
Buchtitel diirfen 100 Zeichen verwendet werden. Wir kommen 
somit auf eine Datensatziange von 150 Zeichen. 

Gleich vorweg sei gesagt, daB bei der Tastatureingabe ublicher- 
weise nicht unbedingt auf diese Langenvorgaben geachtet wer¬ 
den muB. Vielmehr werden die Datenfelder bei zu kurzen Ein- 
gaben mit Leerzeichen aufgefullt, und bei zu langen Eingaben 
werden nur die ersten 20, 30 Oder 100 Zeichen beriicksichtigt. 
Trotzdem kann man schon jetzt sagen, daB die relative Datei¬ 
verwaltung eine genauere Kenntnis der Datenstruktur erfordert. 

Kommen wir zum eigentlichen Problem, der Programmierung 
relativer Dateien. Wie Sie vielleicht schon wissen, ist dies mit 
der eingebauten Floppy nicht moglich. Nur iiber sehr kompli- 
zierte Maschinenroutinen lassen sich relative Files iiber sequen- 
tielle Files simulieren. Dies wollen wir hier nicht weiter erbr- 
tern, was auch gar nicht notwendig ist, da Sie dazu die zweiten 
64 KByte RAM verwenden kdnnen. 

Wie Sie sich vielleicht erinnern, haben wir in Kapitel 7 dieses 
Buches diesen zusatzlichen Speicherbereich fur Bildschirmopera- 
tionen genutzt. Hier hingegen werden wir diesen Speicherbereich 
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als RAM-Disk, also als zusatzlichen Speicherraum fur Textfol- 
gen, nutzen. Da BASIC aber normalerweise nur die ersten 64 
KByte benutzt, ist wiederum das Programm "BANK 
MANAGER" zu starten, um die zusatzlichen RSX-Befehle zur 
Nutzung der zweiten 64 KByte zu erhalten, die ja in BASIC- 
Programmen verwendet werden kdnnen. 

Und so sieht die relative Dateiverwaltung dann aus: 

Mit dem Befehl 

|BANKOPEN,x 

kbnnen Sie eine relative Datei mit der Datensatziange x erbff- 
nen. In unserem obigen Beispiel miifiten wir hier fur x den Wert 
150 wahlen. 

Mit 

|BANKWRITE,@r°/o,ds$,n 

kbnnen Sie den String ds$ in die RAM-Datei schreiben. Zu 
beachten ist naturlich, daB die Lange des Strings ds$ mit dem 
angegebenen Wert fur x ubereinstimmt. Der Parameter n 
bezeichnet den Datensatz, in den geschrieben werden soli. Er 
kann auch weggelassen werden, dann wird immer in den aktu- 
ellen Datensatz geschrieben. Welcher Datensatz gerade aktuell 
ist, wird durch die ganzzahlige Variable r% wiedergegeben. Ist 
eine Operation (Schreiben Oder Lesen) erfolgreich verlaufen, so 
wird r% automatisch um 1 erhbht. Ist aus irgendeinem Grunde 
ein Fehler aufgetreten, wird fur r% ein negativer Fehler-Code 
ausgegeben. 

Die Variable r% ist vor dem Schreibbefehl zu initialisieren. Dies 
machen Sie, indem Sie 


r%=0 


eingeben, um den Beginn von r% bei 0 festzusetzen. 


Der Befehl 
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|BANKREAD,@r°/o,ein$,n 

dient dem Lesen eines Datensatzes von der RAM-Datei in die 
Stringvariable ein$. Wichtig ist, daB ein$ vorher als entsprechend 
langer Leerstring initialisiert wird (z. B. ein$=SPACE$(150)). 
Der Parameter n kann wie bei BANKWRITE auch weggelassen 
werden. 

Sehr nutzlich fur eine Dateiverwaltung ist der Befehl 
|BANKFIND,@r%,s$,a,e 

Mit ihm kann man alle Datensatze nach einem bestimmten String 
s$ absuchen. Zu beachten ist wiederum, daB der Suchstring s$ 
die erforderliche Datensatzlange hat. Ein erfolgreicher Such- 
durchlauf hat zur Folge, daB der Satz, in dem der Suchstring 
gefunden wurde, zum aktuellen Satz wird, d.h., mit PRINT r°/o 
kdnnen Sie das Ergebnis der Suchaktion abrufen. Nur wenn der 
String nicht gefunden wurde, wird fur r% ein negativer Code 
ausgegeben. Mit den Parametern a und e kann man die erste und 
letzte Satznummer angeben, bei der die Suche beginnen bzw. 
abgebrochen werden soil. LSBt man sie weg, wird die gesamte 
Datei durchsucht. Sehr komfortabel ist nun die Mdglichkeit, mit 
dem CHR$(0) Universalzeichen (Joker bzw. Wildcards) in den 
Suchstring aufzunehmen. Der CHR$(0) steht dabei fur jedes 
beliebige Zeichen. Wollen Sie zum Beispiel nach einem Stichwort 
im dritten Datenfeld suchen, so kdnnen Sie vor der Eingabe des 
Stichwortes fur das dritte Datenfeld den Suchstring mit Univer¬ 
salzeichen auffiillen. Bezogen auf unser Buchverwaltungsbeispiel 
hieBe das, daB vor der Eingabe eines Stichwortes fur den Buch- 
titel der Suchstring mit 50 CHR$(0)‘s aufzufiillen ist, also: 

s$=STRING$(50,0)+Stichwort fur den Buchtitel 

Eine andere Moglichkeit der Nutzung des Suchbefehls besteht 
darin, nur fur bestimmte Buchstaben einen Joker einzusetzen. 
Wenn Sie beispielsweise nicht mehr wissen, ob Sie ‘Disk* oder 
‘Disc* geschrieben haben, so kdnnen Sie einfach fur den Such- 
string oder das Stichwort schreiben: 
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s$="Dis"+CHR$(0) 

Durch den Einsatz des Jokers ist es dann fur die Suchaktion 
unwesentlich, ob Sie das Wort mit ‘k‘ Oder ‘c‘ geschrieben haben. 

Im folgenden finden Sie nun ein Programm, in dem die RAM- 
Disk zur relativen Dateiverwaltung genutzt wird. Wir haben dazu 
einfach das Buchverwaltungsprogramm des letzten Kapitels ent- 
sprechend umgeschrieben, obwohl es - wie oben erwahnt - 
eigentlich nur dann sinnvoll ist, mit relativen Dateien zu arbei- 
ten, wenn haufig Diskettenzugriffe notwendig sind. Es ging uns 
hier also mehr urn ein Demonstrationsobjekt als um die Vorstel- 
lung einer Anwendung, die quasi ohne relative Dateien nicht 
auskommt. Von daher sei vorweg gesagt, daB die Buchverwal- 
tung mit der RAM-Disk nicht besser oder komfortabler ist als 
die sequentielle Version. Vielmehr ergeben sich, da das sequen- 
tielle Buchverwaltungsprogramm ohne haufige Diskettenzugriffe 
auskommt (die komplette Datei befindet sich st&ndig im Spei- 
cher), fur den Benutzer kaum Unterschiede in der Handhabung 
des Programms. Die relative Version ist sogar benutzerunfreund- 
licher, da vor dem Programmstart unbedingt das "BANKMAN"- 
Programm gestartet werden muB. Ansonsten werden die zusatz- 
lichen RSX-Befehle nicht verstanden, was entsprechende Feh- 
lermeldungen zur Folge hatte. 

Neben der Begrenzung der DatenfeldlSnge ergeben sich fur den 
Programmbenutzer nur Unterschiede in der Programmfunktion 
‘Daten suchen‘. Wahrend bei der sequentiellen Version die lei- 
stungsstarke Mbglichkeit bestand, nach einem beliebigen Stich- 
wort in den Buchtiteln zu suchen, miissen Sie hier bei der Ein- 
gabe eines Suchstrings immer das gesamte Datenfeld ausfullen. 
Sie haben somit nicht mehr die Mbglichkeit, nach einem Stich- 
wort zu suchen, das an irgendeiner Stelle in den Buchtiteln auf- 
tritt. Sie miiBten hier schon genau wissen, an welcher Stelle des 
Datenfeldes das Stichwort steht. Nur durch eine etwas aufwendi- 
gere Programmierung lieBe sich dieser Nachteil vermeiden (der 
geneigte Leser mag das als Vorschlag zur Eigeninitiative auffas- 
sen). Die relative Such-Version hat aber auch den Vorteil, daB 
Universalzeichen eingegeben werden konnen. Nach dem Muster 
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des obigen Dis(k)(c)-Beispiels kdnnen Sie so einen Suchstring fur 
eines der drei Datenfelder bestimmen. 

Es bleibt jedem Leser selbst iiberlassen, welche Programmver- 
sion fur ihn gunstiger ist. Angucken sollten Sie sich die realative 
Version aber auf jeden Fall. Insbesondere dann, wenn Sie die 
sequentielle Version verstanden haben, wird es Ihnen leicht fal¬ 
len, auch die Nutzung der RAM-Disk zur relativen Dateiver- 
waltung nachzuvollziehen. 

Aber man sollte noch ein paar Worte zur Programmiertechnik 
sagen. In diesem Programm werden alle eingegebenen oder 
sequentiell eingelesenen Daten direkt in die RAM-Disk 
geschrieben. Somit entfSllt die Notwendigkeit zu dimensionieren. 
Mit der Programmfunktion ‘Daten speichern 4 ist hier die 
sequentielle Speicherung auf Diskette gemeint. Die Daten wer¬ 
den dabei von der RAM-Disk gelesen und dann Datensatz fur 
Datensatz sequentiell gespeichert. "Relativ" an diesem Programm 
ist, daB die Dateioperationen Eingeben, Ausgeben, Suchen, 
Korrigieren und Ltischen im RAM durchgefiihrt werden, auf die 
einzelnen Datensatze wird also direkt und "frei" zugegriffen. Der 
Unterschied zur Programmversion des letzten Kapitels ware mit 
Sicherheit deutlicher, wenn wir dort fur die Datenfelder nicht 
die Arrays n$(i), v$(i) und t$(i) gebildet hatten, sondern jedes 
Datenfeld einzeln auf der Diskette gespeichert und gelesen hat- 
ten. Dann namlich ware fur jede Operation ein Diskettenzugriff 
(auf eine sequentielle Datei) notwenig gewesen, der vom zeitli- 
chen Aufwand her nicht mit den "freien" Zugriffen auf die 
RAM-Disk zu vergleichen ist. "Schdn und gut", werden Sie viel- 
leicht sagen, "aber wenn relative Dateien hauptsachlich dann zur 
Anwendung kommen, wenn umfangreiche Dateien bearbeitet 
werden sollen, dann sind 64 KByte nicht gerade viel". Da haben 
Sie vollkommen recht. Fur unser Buchverwaltungsprogramm 
liegt die Grenze bei ca. 400 Datensatzen. Nur durch die Anwen¬ 
dung eines Tricks ist die Verwaltung zusatzlicher Datensatze 
denkbar. Dieser Trick besteht darin, langere Dateien im Wech- 
selspiel zwischen Floppy und RAM-Disk hin- und herzubewe- 
gen. Eine sicherlich interessante Mdglichkeit fur den angehenden 
Profi-Programmierer. 
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Aber kommen wir endlich zu dem lang angekiindigten Pro- 
grammlisting: 


10 REM Buchdatei mit RAM-Disk 
20 |BANKOPEN,150:r%=0 
30 ds$=SPACE$(150) 

40 REM Menue 

50 MOOE 1: PRI NT TAB(32)"Eingabe":PRINT:PRINT 
60 PRINT"Daten eingeben";TAB(35)"1":PRINT 
70 PR INT"BiIdschirmausgabe";TAB(35)"2":PR I NT 
80 PRINT"Daten speichern";TAB(35) ,l 3":PRINT 
90 PRINT"Daten einlesen";TAB(35)"4":PRINT 
100 PRINT"Daten suchen'';TAB(35)"5":PRINT 
110 PRINT"Daten korrigieren";TAB(35)"6":PRINT 
120 PRINT"Daten loeschen";TAB(35)"7":PRINT 
130 PRINT"Programni beenden";TAB(35)"8":PRINT 
140 PR I NT:PR I NT:PR I NT:INPUT"Ihre Wahl ";a 
150 IF a<1 OR a>8 THEN 50 

160 MODE 2:ON a GOTO 170,250,400,470,540,970,1070,1210 

170 UINDOW #1,1,80,23,25:WINDOW #0,1,80,1,20 

180 PRINT#1,"Die Eingabe wird beendet, wenn Sie fuer ‘Name des 

Autors 1 nur die" 

190 PRINT#1."RETURN-Taste druecken !" 

200 k=k+1 

210 PRINT k;".ter Datensatz:":PRINT:PRINT 
220 GOSUB 1340 

230 |BANKWRITE,3r%,n$+v$+t$,k 
240 GOTO 200 

250 PRINT"Es stehen";k;"Datensaetze zur 

Verfuegung":PR I NT:PR I NT:PR I NT 

260 IF k<1 THEN GOSUB 1450:GOTO 50 

270 PRINT"Ausgabe":PRINT:PRINT 

280 INPUT"von Datensatznummer ";aa:PRINT 

290 IF aa<1 OR aa>k THEN 280 

300 INPUT"bis Datensatznummer ";ae 

310 IF ae<1 OR ae>k THEN 300 

320 CLS:FOR i=aa TO ae 

330 PRINT i;".ter Datensatz :":PRINT:PRINT:PRINT 
340 |BANKREAD,arX,ds$,i 
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350 GOSUB 1260:GOSUB 1300:PRI NT": ":PRINT:PRINT n$:PRINT:PRINT 
360 GOSUB 1270:GOSUB 1310:PRINT": ":PRINT:PRINT v$:PRINT:PRINT 
370 GOSUB 1280:GOSUB 1320:PRINT": »:PRINT:PRINT t$ 

380 G0SU8 1450 
390 NEXT i:GOTO 50 
400 OPENOUT"Datei" 

410 PRINT#9,k 
420 FOR i=1 TO k 
430 |BANKREAD,ar%,ds$,i 
440 PRINT#9,ds$ 

450 NEXT i 

460 CLOSEOUT:GOTO 50 
470 OPENIN"Datei" 

480 INPUT#9,k 
490 FOR i=1 TO k 
500 LINE lNPUT#9,ds$ 

510 |BANKWRITE,ar%,ds$,i 

520 NEXT i 

530 CLOSEIN:GOTO 50 

540 PRINT'Mn welchem Datenfeld soil gesucht werden 

?":PR I NT:PR I NT:PR I NT 

550 PRINT TAB(50)"Eingabe":PRINT:PRINT 

560 GOSUB 1260:GOSUB 1300:PR I NT TAB(53)"1":PRINT 

570 GOSUB 1270:GOSUB 1310:PRINT TAB(53)"2":PRINT 

580 GOSUB 1280:GOSUB 1320:PRINT TAB(53)"3":PRINT 

590 PR I NT:PR I NT:INPUT"Ihre Wahl ";a 

600 CLS:IF a<1 OR a>3 THEN 540 

610 PRINT"Geben Sie nun den Suchstring ein. Wenn Sie die COPY- 
Taste druecken," 

620 PRINT"wird diese Stelle als Universalzeichen (Joker) 
aufgefasst.":PR I NT:PRI NT:PR I NT 
630 ka=1:s$="" 

640 ON a GOTO 650,700,750 
650 si=30:GOSUB 810 
660 s$=s$+STRING$(120,0) 

670 |BANKFIND,arX,s$,ka,k 
680 IF r%<0 THEN 800 

690 GOSUB 880:IF r%<k THEN ka=r%+1:GOTO 670 ELSE 800 
700 si=20:GOSUB 810 

710 s$=STRING$(30,0)+s$+STRING$(100,0) 




720 |BANKFIND,3rX,s$,ka,k 
730 IF r%<0 THEN 800 

740 GOSUB 880:IF r%<k THEN ka=rX+1:G0T0 720 ELSE 800 
750 sl=100:GOSUB 810 
760 s$=STRING$(50,0)+s$ 

770 |BANKFIND,arX,s$,ka,k 
780 IF r%<0 THEN 800 

790 GOSUB 880:IF rX<k THEN ka=rX+1:GOTO 770 

800 PRINT:PRINT:PRINT"Suchstring nicht bzw. in keinem weiteren 

Datensatz gefunden":GOSUB 1450:GOTO 50 

810 FOR i=1 TO si 

820 x$=INKEYS:IF x$="" THEN 820 

830 IF INKEY(9)=0 THEN x$=CHR$(0):PRINT»_";:GOTO 850 
840 PRINT x$; 

850 s$=s$+x$ 

860 NEXT i 
870 RETURN 

880 CLS:PRINT"Der Suchstring befindet sich im";rX; 11 .ten Datensatz 
:":PR I NT:PR I NT:PR I NT 
890 |BANKREAD,3rX,ds$,rX 

900 GOSUB 1260:GOSUB 1300:PRINT:PRINT n$:PRINT:PRINT 
910 GOSUB 1270:GOSUB 1310:PR I NT:PR I NT v$:PRINT:PRINT 
920 GOSUB 1280:GOSUB 1320:PR I NT:PR I NT t$:PRINT:PRINT:PRINT 
930 INPUT"Soll welter gesucht werden (j,n) ";a$ 

940 IF a$="n" THEN 50 
950 IF a$<>"j" THEN 930 
960 CLS:RETURN 

970 INPUT"Uelcher Datensatz soil korrigiert werden 

";dk:PRINT:PRINT 

980 IF dk<1 OR dk>k THEN 970 

990 |BANKREAD,arX,ds$,dk 

1000 GOSUB 1260:GOSUB 1300:PRINT n$:PRINT 

1010 GOSUB 1270:GOSUB 1310:PRI NT v$:PRINT 

1020 GOSUB 1280:GOSUB 1320:PRINT t$:PRINT:PRINT 

1030 PRINT"Wie heisst es richtig ?":PRINT:PRINT:PRINT 

1040 GOSUB 1340 

1050 |BANKWRITE,3rX,n$+v$+t$,dk 
1060 GOTO 50 

1070 INPUT"Welcher Datensatz soil geloescht werden 
";dk:PRINT:PRINT 
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1080 IF dk<1 OR dk>k THEN 1070 

1090 |BANKREAD,ar%,ds$,dk 

1100 GOSUB 1260:GOSUB 1300:PRINT n$:PRINT 

1110 GOSUB 1270:GOSUB 1310:PRINT v$:PRINT 

1120 GOSUB 1280:GOSUB 1320:PRINT t$:PRINT:PRINT:PRINT 

1130 INPUT"wirklich loeschen (j,n) “;a$ 

1140 IF a$="n" THEN 50 
1150 IF a$o"j" THEN 1130 
1160 FOR i=dk TO k-1 
1170 |BANKREAD,3r%,ds$,dk+1 
1180 |BANKWRITE,ar%,ds$,dk 
1190 NEXT i 
1200 k=k-1:GOTO 50 

1210 MODE 1:PRINT"Auch alles abgespeichert ?" 

1220 PRINT:PRINT"FalIs nicht, einfach GOTO 40 eingeben." 
1230 PRINT:PRINT:PRINT"Auf Wiedersehen !":PR I NT:PR I NT 
1240 END 

1250 REM Unterprogramme zur Bestimmung der Datenfelder 

1260 n$=LEFT$(ds$,30):RETURN 

1270 v$=MID$(ds$,31,20):RETURN 

1280 t$=RIGHT$(ds$,100):RETURN 

1290 REM Unterprogramme zum Eingabe- Ausgabetext 

1300 PRINT"Name des Autors ";:RETURN 

1310 PRINT"Vorname des Autors ";:RETURN 

1320 PRINT"Titel des Buches :RETURN 

1330 REM Unterprogramm zur Belegung der Datenfelder 

1340 GOSUB 1300:LINE INPUT n$:PRINT 

1350 IF n$="" THEN k=k-1:WINDOW #0,1,80,1,25:GOTO 50 

1360 IF LEN(n$)<30 THEN n$=n$+SPACE$(30-LEN(n$)) 

1370 IF LEN(n$)>30 THEN n$=LEFT$(n$,30) 

1380 GOSUB 1310:LINE INPUT v$:PRINT 

1390 IF LEN(v$)<20 THEN v$=v$+SPACE$(20-LEN(v$)) 

1400 IF LEN(v$)>20 THEN v$=LEFT$(v$,20) 

1410 GOSUB 1320:LINE INPUT t$:PRINT:PRINT:PRINT 
1420 IF LEN(t$)<100 THEN t$=t$+SPACE$(100-LEN(t$)) 

1430 IF LEN(t$)>100 THEN t$=LEFT$(t$,100) 

1440 RETURN 
1450 REM UP Warten 
1460 LOCATE 5,25 

1470 PRINT"Bitte eine Taste druecken !" 
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1480 a$=INKEY$:IF a$="" THEN 1480 
1490 CLS:RETURN 


Variablenliste: 

a Antwort ‘MenuauswahP 

a$ Antwortstring (j,n) 

aa erster Datensatz im Programmteil 

"Bildschirmausgabe" 

ae letzter Datensatz im Programmteil 

"Bildschirmausgabe" 

dk Nummer des zu korrigierenden Datensatzes 

ds$ String zur Aufnahme eines Datensatzes 

i Laufindex 

k Anzahl der DatensStze 

ka Nummer des Datensatzes, bei dem die "Suche" be- 

ginnt 

n$ Name des Autors 

r% Ruckkehr-Code bei BANK-Befehlen 

s$ Suchstring 

si Lange eines Datenfeldes 

t$ Titel des Buches 

v$ Vorname des Autors 

x$ String zur Wiedergabe der gedruckten Taste 


Programmbeschreibung: 

10 Kommentar 

20 Erdffnung einer relativen Datei mit der Datensatz- 

lange 150 und Initialisierung der Integer-Variablen 
r%. 

30 Initialisierung der Variablen ds$ fur die angege- 

bene Datensatzlange. 

40-130 Kommentar, Umschaltung auf den 40-Zeichen- 

Modus und Ausgabe des Menus. 
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140-160 Eingabe eines Wertes zur Meniiauswahl, Umschal- 
tung auf den 80-Zeichen-Modus und Programm- 
verzweigungen. 

170-240 Eingabe der Datensatze. Abgesehen von folgenden 
Anderungen ist dieser Programmteil identisch mit 
der Eingaberoutine des Programms in Kapitel 8.2: 
Zum einen erfolgt die eigentliche Eingabe in einem 
gesonderten Unterprogramm (Satz 1330-1440), da 
dieser Teil aufgrund der Langenvorgaben fur die 
einzelnen Datenfelder erheblich umfangreicher 
geworden ist und als Unterprogramm auch von 
dem Programmteil ‘Daten korrigieren 4 benutzt wer- 
den kann, und zum anderen werden die Eingaben 
in Satz 230 direkt in die RAM-Datei geschrieben. 

250-390 Bildschirmausgabe der Datensatze. Auch hier wird 
ahnlich wie im letzten Kapitel vorgegangen. Wah- 
rend jedoch in der sequentiellen Version eine 
Schleife zur Bildschirmausgabe gebildet wurde, 
wird hier direkt in der RAM-Datei gelesen (Satz 
340). Weiterhin dienen die Unterprogramme Satz 
1260-1280 der Aufteilung der eingelesenen Daten¬ 
satze entsprechend der Langenvorgaben fur die 
einzelnen Datenfelder. Zu beachten ist weiterhin, 
daB die eingegebenen oder sequentiell eingelesenen 
Datensatze auch dann noch zur Verfugung stehen, 
wenn zum Beispiel nach einer Programmunterbre- 
chung das Programm mit RUN neu gestartet wird. 
Nur der Wert der Variablen k (der dann gleich 0 
ist) verhindert dann die Ausgabe dieser Datensatze 
in diesem Programmteil. 

Speichern (sequentiell) und Einlesen der Datensatze 
auf bzw. von der Diskette. Auch hier wird wieder 
direkt vom Zusatz-RAM gelesen (Satz 430) bzw. 
ins Zusatz-RAM geschrieben (Satz 510). 


400-530 
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540-960 In diesem Programmteil wird nach einem einzuge- 
benden String gesucht. Entsprechend der Menii- 
auswahl (Satz 540-600) wird jeweils in einem der 
drei Datenfelder gesucht. Die Eingabe des Such- 
strings vollzieht sich in dem Unterprogramm Satz 
810-870. In AbhSngigkeit von der Datenfeldiange 
(Variable si) wird hier die Tastatur abgefragt (Satz 
820). Die einzelnen Eingaben x$ werden auf dem 
Bildschirm ausgegeben (Satz 840). Sie ergeben dann 
aufsummiert den Suchstring s$ (Satz 850). Das 
Driicken der COPY-Taste (Tasten-Nummer 9) wird 
als Eingabe eines Universalzeichens verstanden, 
und auf dem Bildschirm wird dann ein einfacher 
Strich ausgegeben (Satz 830). In Abh&ngigkeit 
davon, in welchem Datenfeld gesucht wird (siehe 
Variable a), wird dieses Unterprogramm entweder 
in dem Programmteil Satz 650-690 (Feld 1, Auto- 
renname) Oder in dem Abschnitt Satz 700-740 
(Feld 2, Vorname) oder in den Satzen 750-790 
(Feld 3, Buchtitel) aufgerufen. In diesen Pro- 
grammteilen wird die Datenfeldiange bestimmt 
(Variable si), der Suchstring wird mit Universal- 
zeichen fur die jeweils nicht berucksichtigten 
Datenfelder aufgefullt (siehe Satz 660, 710 bzw. 
760), und es wird in der RAM-Datei nach dem 
String s$ gesucht (siehe Satz 670, 720 bzw. 770). 
Wenn s$ nicht gefunden wurde Oder wenn ein 
Fehler bei der Bankauswahl auftreten sollte (dann 
ist r% negativ), wird zum Satz 800 verzweigt, wo 
ein entsprechender Kommentar ausgegeben wird 
und ein Rucksprung zum Hauptmenii erfolgt. 
Immer wenn der gesuchte String gefunden wurde, 
wird das Unterprogramm Satz 880-960 aufgerufen, 
um den jeweiligen Datensatz auszugeben. Die 
Variable r% gibt dann die entsprechende Daten- 
satznummer an. Je nach Wahl des Programm- 
benutzers (siehe Satz 930) kann dann die Suche 
fortgesetzt werden, oder es wird zum Hauptmenii 
verzweigt. Wenn die Suche fortgesetzt werden soil, 
wird in den Satzen 690, 740 oder 790 der Parame- 
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ter ka, der den ersten Datensatz der Suchaktion 
bestimmt, um 1 erhoht, falls s$ nicht gerade im 
letzten (k-ten) Datensatz gefunden wurde (IF 
r%<k), und es wird dementsprechend die Suche 
fortgesetzt (Riicksprung) Oder zu dem schon ange- 
sprochenen Satz 800 verzweigt. Zu erwahnen ist 
noch, daB vor Beginn der Suchaktion die Variablen 
ka und s$ in Satz 630 mit Ausgangswerten belegt 
werden. 

970-1200 Ein Datensatz wird korrigiert Oder geldscht. Es 
wird hier unter Beriicksichtigung der schon 
erwShnten Anderungen genauso vorgegangen wie 
in den entsprechenden Programmteilen der sequen- 
tiellen Buchverwaltung. Angemerkt sei nur, daB 
bei der Eingabe eines korrigierten Datensatzes fur 
den Autorennamen nicht nur die RETURN-Taste 
gedriickt werden darf, da dies in dem entsprechen¬ 
den Unterprogramm als Eingabeabbruch verstanden 
wird, der aber bei der Datensatzkorrektur nicht 
vorgesehen ist, und somit die Variable k faischli- 
cherweise vermindert wurde. 

1210-1240 Das Programm wird nach einer Kommentarausgabe 
beendet. 

1250-1280 Unterprogramme zur Bestimmung der Datenfelder. 

Da nur immer ganze Datensatze in die RAM-Datei 
geschrieben bzw. von ihr gelesen werden, miissen 
diese auseinanderdividiert werden, wenn einzelne 
Datenfelder angegeben werden sollen. Als Krite- 
rium fur diese Aufteilung dient die vorgegebene 
Lange der einzelnen Datenfelder. Es ware jedoch 
auch denkbar, die Lange der Felder variabel zu 
gestalten (bei fest vorgegebener Datensatziange). Es 
muBte dann eben ein Trennzeichen zur Unter- 
scheidung der einzelnen Felder definiert werden 
(beispielsweise Der gesamte Datensatz wurde 
sich dann allerdings (bei drei Feldern) um zwei 
Zeichen (den Trennzeichen) erweitern. 




1290-1320 Unterprogramme fur haufig benutzte Texte 

1330-1440 Unterprogramm zur Belegung der Datenfelder. Die 
Eingaberoutine zur sequentiellen Buchverwaltung 
ist hier erweitert worden. Da alle Datenfelder fest 
vorgegebene Langen haben, werden zu kurze Ein- 
gaben mit Leerzeichen aufgefullt (Satz 1360, 1390 
bzw. 1420) und zu lange Eingaben gekurzt (Satz 
1370, 1400 bzw. 1430). 

1450-1490 Unterprogramm "Warten" und Loschen des Bild- 
schirms. 
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9. Anwenderprogramme 


9.1 Vorbemerkung 

In diesem letzten Kapitel sollen Ihnen noch einige Programme 
vorgestellt werden, um Ihnen weitere Anwendungsmdglichkeiten 
aufzuzeigen. Diese Programme werden alle ausfiihrlich erlSutert. 
Sie sind so aufgebaut, daB erkennbar bleibt, was geschieht. Dies 
ging naturlich haufig zu Lasten der Programmeleganz und der 
Rechengeschwindigkeit. Sie sollten somit selbst an den Pro- 
grammen herumbasteln, sie verbessern, erweitern, schneller und 
eleganter machen... 

Um Ihnen da behilflich zu sein, finden Sie neben den 
Programmeriauterungen auch Programmiertips zur Programm- 
verbesserung, so daB Sie - nachdem Sie die vorangegangenen 
Kapitel studiert haben - in der Lage sein sollten, das eine Oder 
andere programmtechnische Register zu ziehen. Weiterhin wird 
in den folgenden Programmen der praktische Einsatz wichtiger 
BASIC-Anweisungen vorgefuhrt (WINDOW, PRINT USING 
usw.), der dem einen Oder anderen Leser iiber letzte Verst&nd- 
nisschwierigkeiten hinweghelfen kdnnte. 

Obwohl das ausgezeichnete Schneider-BASIC (und vielleicht 
auch das vorliegende Buch) zum Selbstprogrammieren einiadt, 
werden auch Hinweise auf Leistungsmerkmale der professionel- 
len Software gegeben. Dies geschieht allerdings nur sehr 
begrenzt, da Sie als Leser schlieBlich mit dem Kauf dieses 
Buches gezeigt haben, daB Ihnen nicht an der bloBen Uber- 
nahme fertiger Konzepte gelegen ist. 


9.2 "Clusteranalyse" der BASIC-Befehle 

Bevor wir zu den eigentlichen Anwenderprogrammen kommen, 
soli Ihnen das Programm aus Kapitel 3 naher eriautert werden. 
Dieses Programm wird erst an dieser Stelle aufgefuhrt und 
dokumentiert, da dies zu Beginn des Buches u. U. nicht ganz 
unbetrachtliche Verstandnisprobleme mit sich gebracht hatte. 
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F.ine ausfuhrliche Beschreibung zum Verfahrensablauf finden Sie 
in Kapitel 3. Hier soli es nun vielmehr urn den Begriindungszu- 
sammenhang beziiglich des dort Gesagten gehen. 

Anhand eines kleinen Beispiels soli das Verfahren nochmals ver- 
deutlicht werden. Die einzelnen Befehle (die Ausgangsdaten also) 
werden hierbei durch Buchstaben gekennzeichnet. 

Gehen wir von den folgenden vier DatensStzen aus: 

DATA a,3,c,q,p 
DATA b,2,s,t 
DATA c,4,r,s,t,u 
DATA d,l,e 

Es passiert nun folgendes. Im ersten Durchgang (gemeint ist die 
doppelte Programmschleife Satz 2080,2090 bis 2250,2240 , siehe 
Programmlisting) ist i=l und j=2. Da die Befehle der ersten bei- 
den Datens&tze unterschiedlich sind, wird j um 1 erhbht, und es 
wird der 1. mit dem 3. Datensatz verglichen. Hier besteht nun 
eine "Ahnlichkeit", da in beiden Datensatzen das Element (der 
Befehl) "c" vorkommt. Also wird der 1. Datensatz dem 3. 
Datensatz zugeordnet, der dann folgende Elemente (Befehle) 
beinhaltet: 

c,r,s,t,u,a,q,p 

Zu beachten ist, dafJ das Element (der Befehl) "c" hier natiirlich 
nur einmal auftritt. Der nun anstehende Vergleich des 1. mit 
dem 4. Datensatz entfailt, da der 1. Datensatz ja bereits zuge¬ 
ordnet ist (z( 1 )= 1). Der Index i wird also um 1 erhOht, und das 
Verfahren wird mit dem Ergebnis fortgesetzt, daB der 2. und 
der 3. Datensatz zusammengefaBt werden. z(2) ist dann auch 
gleich 2, und der 3. Datensatz weist nun folgende Elemente auf: 

c,r,s,t,u,a,q,p,b 

AnschlieBend wird der 3. mit dem 4. Datensatz verglichen, 
wobei jedoch keine "Ahnlichkeit" festgestellt werden kann. Es 





Anwender programme 


227 


haben sich somit 2 Kategorien ergeben, die folgende Elemente 
aufweisen: 

1. Kategorie : c,r,s,t,u,a,q,p,b 

2. Kategorie : d,e 

Der eine Oder andere Leser wird sich vielleicht die Frage gestellt 
haben, warum nicht der j-te Datensatz dem i-ten Datensatz 
zugeordnet wird. Dies ist nicht mbglich, da der i-te Datensatz in 
dem darauffolgenden Durchlauf nicht mehr eingeht und somit 
keine weiteren Ahnlichkeiten zwischen dem neu gebildeten i-ten 
Datensatz und den verbleibenden Datens&tzen festgestellt wer- 
den kdnnten. 

Es sei daran erinnert, daB der obige Vergleich des 1. mit dem 2. 
Datensatz zunachst keine "Ahnlichkeit" ergeben hat. Erst iiber 
die Einbeziehung des 3. Datensatzes sind somit die Ausgangsda- 
tensStze 1 und 2 zusammengefaBt worden. Diesen Effekt kann 
man als "Verkettung" bezeichnen, da ein einziger Befehl zwei 
unter Umstanden schon umfangreichere Datensatze, die eigent- 
lich hdchst unterschiedlich sind, einander zuordnen kann. Will 
man diese Verkettungen ausschlieBen, so muB man ein anderes 
Ahnlichkeitskriterium wahlen. Zum Beispiel konnte es sinnvoll 
sein, zwei gleiche Befehle (bisher reichte einer) als Vorausset- 
zung fur eine Zuordnung vorzuschreiben. Dies sahe programm- 
technisch folgendermaBen aus: 


2105 g=0 

2135 g=g+1:IF g<2 THEN 2220 

Mit dieser Programmversion erhalten Sie 60 verschiedene Kate¬ 
gorien. Diese Kategorien schlieBen sich nicht gegenseitig aus, 
d.h., daB die gleichen Befehle in unterschiedlichen Kategorien 
auftauchen. Dadurch wird die Ubersichtlichkeit zwar nicht 
gefdrdert, andererseits kann man "zentrale", d.h. haufig vor- 
kommende Befehle identifizieren. Ausserdem wird verhindert, 
daB zusammengehdrige Befehle wie z.B. die Musikanweisungen 
mit anderen Befehlen eine Kategorie bilden. Da uns hier jedoch 
an der Bildung mOglichst weniger Kategorien gelegen ist, soli 
auf die Darstellung dieser Ergebnisse verzichtet werden. Nach 
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Belieben kdnnen Sie ja selbst einmal dieses oder andere Ahn- 
lichkeitskriterien ausprobieren. 

Bevor wir zum Programmlisting kommen, soil noch ein Vor- 
schlag zur weiteren Verwendung des Programms gemacht wer- 
den. Stellen Sie sich einmal vor, Sie wollten eine Freizeit fur 
Kinder organisieren und Sie wiiBten nicht, wie Sie Ihre Kinder 
in Gruppen aufteilen kdnnen. Diese Gruppenbildung kdnnten Sie 
dann mit Ihrem CPC und dem "Clusteranalyse"-Programm voll- 
ziehen, wenn Sie alle Kinder nach Freunden und Bekannten 
befragen wiirden, die ebenfalls an der Freizeit teilnehmen. Die 
Ergebnisse dieser Befragung wiirden dann als Ausgangsdaten in 
das Programm eingehen. Sie kbnnten so gewahrleisten, daB sich 
die Mitglieder einer Gruppe schon kennen. Ein Erfolg der 
Freizeit ware dann sozusagen "vorprogrammiert". 


10 REM Programm zur Kategorisierung saemtlicher Schneider-BASIC- 
Befehle 

20 REM Es gehen n verschiedene Befehle in den Programmabtauf ein 
30 n=168 

40 DIM k$(n,65),ab(n),z(n) 

50 CLS 

60 LOCATE 14,12:PRINT"Ich rechne" 

100 DATA ABS,1,SGN 

110 DATA AFTER,3,EVERY,REMAIN,RETURN 
120 DATA AND,3,OR,NOT,XOR 
130 DATA ASC,1,CHR$ 

140 DATA ATN,5,SIN,COS,TAN,DEG,RAD 
150 DATA AUTO,0 

160 DATA BIN$,3,DEC$,HEXS,STR$ 

170 DATA BORDER,1,SPEED INK 
180 DATA CALL,1,UNT 
190 DATA CAT,0 

200 DATA CHAIN,3,CHAIN MERGE,LOAD,MERGE 

210 DATA CHAIN MERGE,4,CHAIN,DELETE,LOAD,MERGE 

220 DATA CHRS,1,ASC 

230 DATA CINT,5,CREAL,FIX, INT,ROUND,UNT 
240 DATA CLEAR,0 

250 DATA CLEAR INPUT,3,INKEY,INKEYS,JOY 
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260 DATA CLG,4,CLS,GRAPHICS PAPER,INK,ORIGIN 

270 DATA CLOSE IN,2,EOF,OPEN IN 

280 DATA CLOSEOUT,I.OPENOUT 

290 DATA CLS,4,CLG,INK,PAPER,WINDOW 

300 DATA CONT,1.STOP 

310 DATA COPYCHR$,1,LOCATE 

320 DATA COS,4,ATN,DEG,RAD,SIN 

330 DATA CREAL,1,CINT 

340 DATA CURSOR,1,LOCATE 

350 DATA DATA,2,READ,RESTORE 

360 DATA DECS,4,BINS,HEX$,PRINT USING,STRS 

370 DATA DEF FN,0 

380 DATA DEFINT,2,DEFREAL,DEFSTR 

390 DATA DEFREAL,2,DEFINT,DEFSTR 

400 DATA DEFSTR,2,DEFINT,DEFREAL 

410 DATA DEG,5,ATN,COS,RAD,SIN,TAN 

420 DATA DELETE,2,CHAIN MERGE,RENUM 

430 DATA DERR,5,ERL,ERR,ERROR,ON ERROR GOTO,RESUME 

440 DATA DI,4,AFTER,El,EVERY,REMAIN 

450 DATA DIM,1,ERASE 

460 DATA DRAW,3,DRAWR,GRAPHICS PEN,MASK 

470 DATA DRAWR,3,DRAW,GRAPHICS PEN,MASK 

480 DATA EDIT,2,AUTO,LIST 

490 DATA El,4,AFTER,DI.EVERY,REMAIN 

500 DATA END,1,STOP 

510 DATA ENT,2,ENV,SOUND 

520 DATA ENV,2,ENT,SOUND 

530 DATA EOF,2,OPEN IN,CLOSE IN 

540 DATA ERASE,1,DIM 

550 DATA ERL,5,DERR,ERR,ERROR,ON ERROR GOTO,RESUME 

560 DATA ERR,5,DERR,ERL,ERROR,ON ERROR GOTO,RESUME 

570 DATA ERROR,4,ERL,ERR,ON ERROR GOTO,RESUME 

580 DATA EVERY,2,AFTER,REMAIN 

590 DATA EXP,1,LOG 

600 DATA FILL,1.GRAPHICS PEN 

610 DATA FIX,3,Cl NT,I NT,ROUND 

620 DATA FOR,3,NEXT,STEP,TO 

630 DATA FRAME,2,TAG,TAGOFF 

640 DATA FRE,2,HIMEM,MEMORY 

650 DATA GOSUB.1,RETURN 



230 


Das erofte BASIC-Buch zum CPC 6128 


660 DATA GOTO.O 

670 DATA GRAPHICS PAPER,6,CLG,GRAPHICS PEN,INK,MASK,TAG,TAGOFF 

680 DATA GRAPHICS PEN,5,GRAPHICS PAPER,INK,MASK,TAG,TAGOFF 

690 DATA HEX$,4,B1N$,DEC$,STR$,UNT 

700 DATA HIMEM,4,FRE,MEMORY,SYMBOL,SYMBOL AFTER 

710 DATA IF,3,ELSE,GOTO,THEN 

720 DATA INK,5,GRAPHICS PAPER,GRAPH ICS PEN,PAPER,PEN,SPEED INK 

730 DATA INKEY,3,CLEAR INPUT,INKEYS,JOY 

740 DATA INKEYS,1,CLEAR INPUT 

750 DATA INP,2,OUT,WAIT 

760 DATA INPUT,1,LINE INPUT 

770 DATA INSTR.O 

780 DATA I NT,3,Cl NT,FIX,ROUND 

790 DATA JOY,2,CLEAR INPUT,INKEY 

800 DATA KEY,1,KEY DEF 

810 DATA KEY DEF,2,KEY,SPEED KEY 

820 DATA LEFTS,2,MIDS,RIGHTS 

830 DATA LEN,0 

840 DATA LET,0 

850 DATA LINE INPUT,1,INPUT 

860 DATA LIST.O 

870 DATA LOAD,5,CHAIN,CHAIN MERGE,MERGE,RUN,SAVE 

880 DATA LOCATE,1,WINDOW 

890 DATA LOG,2,EXP,LOG 10 

900 DATA LOG 10,2,EXP,LOG 

910 DATA LOWERS,1,UPPERS 

920 DATA MASK,4,DRAW,DRAWR,GRAPHICS PAPER,GRAPH ICS PEN 
930 DATA MAX,1,MIN 

940 DATA MEMORY,4,FRE,HIMEM,SYMBOL,SYMBOL AFTER 

950 DATA MERGE,3,CHAIN,CHAIN MERGE,LOAD 

960 DATA MIDS,2,LEFTS,RIGHTS 

970 DATA MIN,1,MAX 

980 DATA MOO,0 

990 DATA MODE,2,ORIGIN,WINDOW 

1000 DATA MOVE,4,MOVER,ORIGIN,XPOS,YPOS 

1010 DATA MOVER,4,MOVE,ORIGIN,XPOS.YPOS 

1020 DATA NEW,0 

1030 DATA NEXT,3,FOR,STEP,TO 

1040 DATA NOT,3,AND,OR,XOR 

1050 DATA ON BREAK CONT,2,ON BREAK GOSUB,ON BREAK STOP 
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1060 DATA ON BREAK GOSUB,3,ON BREAK CONT.ON BREAK STOP,RETURN 
1070 DATA ON BREAK STOP,2,ON BREAK CONT.ON BREAK GOSUB 
1080 DATA ON ERROR GOTO,5,DERR,ERL,ERR,ERROR,RESUME 
1090 DATA ON GOSUB,1.RETURN 
1100 DATA ON GOTO.O 

1110 DATA ON SQ GOSUB,3,RETURN,SOUND,SQ 

1120 DATA OPEN IN,2,CLOSE IN,EOF 

1130 DATA OPENOUT.1,CLOSEOUT 

1140 DATA OR,3,AND,NOT,XOR 

1150 DATA ORIGIN,1,WINDOW 

1160 DATA OUT,2,INP.WAIT 

1170 DATA PAPER,3,GRAPHICS PAPER,INK,PEN 

1180 DATA PEEK,1,POKE 

1190 DATA PEN,1,PAPER 

1200 DATA PI,2,DEG,RAD 

1210 DATA PLOT,2,GRAPH ICS PEN.PLOTR 

1220 DATA PLOTR,2,GRAPHICS PEN,PLOT 

1230 DATA POKE,1,PEEK 

1240 DATA POS,2,VPOS,WINDOW 

1250 DATA PRINT,4,SPC,TAB,USING,ZONE 

1260 DATA RAD,5,ATN,COS,DEG,SIN,TAN 

1270 DATA RANDOMIZE,1,RND 

1280 DATA READ,2,DATA,RESTORE 

1290 DATA RELEASE.1,SOUND 

1300 DATA REM,0 

1310 DATA REMAIN,4,AFTER,DI,El,EVERY 
1320 DATA RENUM,2,DELETE,LIST 
1330 DATA RESTORE,2,DATA,READ 

1340 DATA RESUME,6,DERR,ERL,ERR,ERROR,ON ERROR GOTO,RESUME NEXT 

1350 DATA RESUME NEXT,6,DERR,ERL,ERR,ERROR,ON ERROR GOTO,RESUME 

1360 DATA RETURN,1,GOSUB 

1370 DATA RIGHTS,2,MID$,LEFTS 

1380 DATA RND,1,RANDOMIZE 

1390 DATA ROUND,4,ABS,CINT,FIX,I NT 

1400 DATA RUN,4,LOAD,CONT,END,STOP 

1410 DATA SAVE,5,CHAIN,CHAIN MERGE,LOAD,MERGE,RUN 

1420 DATA SGN,1,ABS 

1430 DATA SIN,5,ATN,COS,DEG,RAD,TAN 

1440 DATA SOUND,5,ENT,ENV,ON SQ GOSUB,RELEASE,SQ 

1450 DATA SPACES,3,SPC,STRINGS,TAB 
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1460 DATA SPEED INK,2,BORDER,INK 

1470 DATA SPEED KEY,1,KEY DEF 

1480 DATA SPEED URITE,2,OPENOUT,SAVE 

1490 DATA SQ,2,ON SQ GOSUB,SOUND 

1500 DATA SQR,0 

1510 DATA STOP,2,CONT,END 

1520 DATA STR$,4,BIN$,DEC$,HEXS.VAL 

1530 DATA STRING$,1,SPACES 

1540 DATA SYMBOL,1,SYMBOL AFTER 

1550 DATA SYMBOL AFTER,3,HIMEM,MEMORY,SYMBOL 

1560 DATA TAG,1.TAGOFF 

1570 DATA TAGOFF,1,TAG 

1580 DATA TAN,5,ATN,COS,DEG,RAD,SIN 

1590 DATA TEST,5,MOVE,MOVER,TESTR,XPOS,YPOS 

1600 DATA TESTR,5,MOVE,MOVER,TEST,XPOS.YPOS 

1610 DATA TIME,4,AFTER,EVERY,WEND,WHILE 

1620 DATA TRON,1,TROFF 

1630 DATA UNT,4,CINT,FIX,I NT,ROUND 

1640 DATA UPPERS,1,LOWERS 

1650 DATA VAL,1,STR$ 

1660 DATA VPOS,2,POS,WINDOW 

1670 DATA WAIT,2,INP.OUT 

1680 DATA WEND,2,TIME,WHILE 

1690 DATA WHILE,2,TIME,WEND 

1700 DATA WIDTH,1,POS 

1710 DATA WINDOW,1,WINDOW SWAP 

1720 DATA WINDOW SWAP,1.WINDOW 

1730 DATA WRITE,2,INPUT,LINE INPUT 

1740 DATA XOR,3,AND,OR,NOT 

1750 DATA XPOS,4,MOVE,MOVER,ORIGIN,YPOS 

1760 DATA YPOS,4,MOVE,MOVER.ORIGIN,XPOS 

1770 DATA ZONE,1,PR I NT 

2000 REM Einlesen der Daten 

2010 FOR i=1 TO n 

2020 READ k$(i,0),ab(i) 

2030 FOR j=1 TO ab(i) 

2040 READ k$(i,j) 

2050 NEXT j 
2060 NEXT i 

2070 REM Die eigent lichen Zuordnungen 
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2080 FOR i=1 TO n-1 
2090 FOR j=i+1 TO n 
2100 IF z(i)=1 THEN 2250 
2110 FOR i1=0 TO ab(i) 

2120 FOR j1=0 TO ab(j) 

2130 IF k$(i,i1)<>k$(j,j1) THEN 2220 
2140 ij=0:ab=ab(j) 

2150 z(i)=1 

2160 FOR 1=0 TO ab 

2170 IF k$<i,ij)«k$(j,l) THEN 2190 

2180 IF ij<ab(i) THEN ij = ij+1:GOTO 2160 ELSE 2240 

2190 NEXT l 

2200 ab(j)=ab(j)+1:k$(j,ab(j))=k$<i,ij) 

2210 IF ij<ab(i) THEN ij = ij+1:GOTO 2160 ELSE 2240 

2220 NEXT jl 

2230 NEXT il 

2240 NEXT j 

2250 NEXT i 

2260 REM Ergebnisausgabe 
2270 FOR i=1 TO n 
2280 IF z(i)=1 THEN 2360 
2290 k=k+1 

2300 CLS:PRINT k".te Kategorie“:PRINT 
2310 FOR j=0 TO ab(i) 

2320 PRINT k$(i,j), 

2330 NEXT j 

2340 LOCATE 7,25:PRINT"Bitte eine Taste druecken" 
2350 a$=INKEYS:IF a$="" THEN 2350 ELSE CLS 
2360 NEXT i 

2370 PRINT M Programmende":END 


Variablenliste: 


ab(i) Anzahl der verwandten Befehle (fiir jeden Daten- 

satz) 

ab Anzahl der verwandten Befehle des Datensatzes, 

dem ein anderer Datensatz zugeordnet wird 
i Laufindex 
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il 

Laufindex 

ij 

zweiter Index fur k$ im Zuordnungsverfahren 

j 

Laufindex 

jl 

Laufindex 

k 

laufende Nummer einer Kategorie bei der Ergeb- 
nisausgabe 

k$(i,j) 

die Befehle (Index j) eines Datensatzes i 

1 

Laufindex 

n 

Anzahl der DatensStze 

z (i) 

Variable zur Kennzeichnung eines Datensatzes (z(i) 
ist gleich 1, wenn der i-te Datensatz zugeordnet 
ist, ansonsten gleich 0) 

Programmbeschreibung: 

10-20 

Kommentar 

30-40 

Belegung der Variablen "n" und Speicherplatzreser- 
vierung 

50-60 

LOschen des Bildschirms und Kommentarausgabe 
wahrend des Rechenvorgangs 

100-1770 

Die Daten werden bereitgestellt. Aufbau ' der 
DATA-Statements: DATA Befehl, Anzahl der ver- 
wandten Befehle, verwandte Befehle. 

2000-2060 

Einlesen der Daten. Im Feld k$(i,0) wird jeweils 
der betreffende Befehl eingegeben, wahrend die 
Felder k$(i,j), fur j=l-Anzahl der verwandten Be¬ 
fehle, die verwandten Befehle beinhalten. 

2070-2260 

Die Zuordnungen werden vorgenommen. In der 
doppelten Programmschleife (Satz 2080,2090 bis 
2250,2240) wird jeder Datensatz mit jedem ande- 
ren Datensatz verglichen, wenn der i-te Datensatz 
noch nicht zugeordnet ist (siehe Satz 2100). Ein 
Vergleich beruht auf der Untersuchung aller Be¬ 
fehle der jeweiligen zwei Datensatze, d.h., jeder 
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Befehl eines Datensatzes wird mit jedem anderen 
Befehl des Vergleichs-Datensatzes verglichen 
(doppelte Schleife Satz 2110,2120 bis 2230,2220). 
W&hrend die eigentliche Untersuchung in Satz 2130 
stattfindet, werden die Satze 2140 bis 2210 nur 
dann abgearbeitet, wenn ein Befehl sowohl in dem 
einen als auch in dem anderen Datensatz vorhan- 
den ist. Dann namlich werden die Befehle des i-ten 
Datensatzes den Befehlen des j-ten Datensatzes zu- 
geordnet (Satz 2200), und der i-te Datensatz wird 
entsprechend gekennzeichnet (Satz 2150). Die Zu- 
ordnung eines einzelnen Befehls erfolgt aber nur 
dann, wenn der entsprechende Befehl noch nicht 
im j-ten Datensatz vorhanden ist (Untersuchung in 
den Satzen 2160 bis 2190, die Variable ‘ab‘ ist dazu 
in Satz 2140 gleich ‘ab(j)‘ gesetzt worden, da sich 
‘ab(j)‘ im ZuordnungsprozeB verandert (siehe Satz 
2200)). Satz 2200 (und auch Satz 2210) wird also 
fiir jeden einzelnen Befehl des i. ten Datensatzes 
nur dann erreicht, wenn er das Vergleichsverfahren 
in Satz 2170 "iiberstanden" hat. In den Satzen 2180 
und 2210 wird der Index ‘ij‘ des i-ten Datensatzes 
(der in Satz 2140 fiir jeden Durchlauf gleich 0 
gesetzt wird) um 1 erhbht, falls noch weitere 
Befehle im i-ten Datensatz vorhanden sind (IF ij < 
ab(i)), und es wird zur Untersuchung dieses wei- 
teren Befehls verzweigt. Liegen keine weiteren 
Befehle im i-ten Datensatz mehr vor, wird der 
nachste Datensatz ‘j‘ herangezogen (Verzweigung 
zum Satz 2240). 

2260-2370 Ergebnisausgabe: In der Programmschleife (Satz 
2270 bis 2360) werden die Befehle der iibriggeblie- 
benen, d.h. nicht zugeordneten Datensatze ausgege- 
ben. Da sich diese Datensatze in der Regel aus 
mehreren Ausgangsdatensatzen zusammensetzen, 
werden sie als Kategorien bezeichnet. Nach jeder 
Ausgabe der Befehle einer Kategorie wird in den 
Satzen 2340 und 2350 auf einen Tastendruck 
gewartet, um ein ScroIIen des Bildschirms zu ver- 
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hindern. Wenn alle Ergebnisse ausgegeben sind, 
wird in Satz 2370 das Programmende erreicht. 


9.3 Tabellarischer Tilgungsplan 

In diesem Kapitel geht es um das Thema "Schulden". Wollen Sie 
beispielsweise einen Kredit von nominal 100000 DM aufnehmen, 
berechnet Ihnen Ihre Bank in der Regel ein Disagio (auch Dam¬ 
num genannt). Das Disagio muB zwar verzinst und getilgt wer- 
den, es wird aber nicht ausgezahlt, sondern als eine Art Gebiihr 
von der Bank einbehalten. Sie miissen also bei der Berechnung 
der Zinsen und der Tilgung von der Nominalschuld und nicht 
von dem Auszahlungskurs ausgehen. 

Mit Ihrer Bank werden Sie bei der Kreditaufnahme einen Zins- 
satz und eine Anfangstilgung (ebenfalls in Prozent vom nomina- 
len Kreditbetrag) vereinbaren. Aus diesen beiden GrbBen setzt 
sich dann Ihre Rate zusammen, die Sie monatlich oder viertel- 
jahrlich zu entrichten haben. Bei einem Zinssatz von 6% und 
einer Anfangstilgung von 2% sind das 2000 DM pro Vierteljahr 
Oder 8000 DM pro Jahr. Fur die Laufzeit des Kredits bleibt 
diese Rate gleich hoch. Allerdings wSchst der Tilgungsanteil in 
der Rate, wShrend der Zinsanteil stiindig abnimmt, da sich das 
zu verzinsende Kapital von Jahr zu Jahr vermindert. Daher 
dauert die Riickzahlung des Darlehens in dem obigen Beispiel 
auch nicht 50 Jahre, sondern nur ca. 23 Jahre (bei unverander- 
tem Zins). 

Kreditangebote unterscheiden sich auch in der Dauer des fest 
vereinbarten Zinssatzes. Nach Ablauf dieser Frist wird der 
Zinssatz je nach Marktlage erhbht Oder gesenkt. Sie kbnnen 
dann aber auch, falls Sie dies wtinschen, die Restschuld bar 
bezahlen, sei es nun aus eigenen Mitteln oder aus Fremdmitteln. 

Es kann also fur Sie sehr wichtig sein, diese Restschuld zu 
kennen. Sie wird mit Hilfe eines Tilgungsplans ermittelt, der die 
Kontofiihrung des Geldinstituts nachbildet. Es gehen naturlich 
alle relevanten Kreditparameter wie Rate, zu verzinsendes 
Kapital, Zins, Tilgung und Restschuld in diese Kontofiihrung 
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mit ein. Einen derartigen Tilgungsplan simuliert das folgende 

Programm. Gleichzeitig werden Ihnen die Mdglichkeiten des 

CPC demonstriert, mit Hilfe des 80-Zeichen-Modus und der 

PRINT USING-Anweisung Tabellen zu erstellen. 

Zu diesem Tilgungsplan sind jedoch noch einige Anmerkungen 

zu machen: 

1) AusgangsgrdBe ist die Nominalschuld und nicht der aus- 
gezahlte Betrag. 

2) Verzinst und getilgt wird diese Nominalschuld. 

3) Obwohl regelmSBig (im vorliegenden Programm viertel- 
jahrlich) Raten gezahlt werden, wird jeweils ein Jahr lang 
der Zins von einem unveninderten Kapitalbetrag berech- 
net. Erst nach Ablauf eines Jahres vermindert sich das zu 
verzinsende Kapital. 

4) Die Restschuld hingegen verringert sich mit jeder Raten- 
zahlung um den Tilgungsbetrag. Sie ist nach Ablauf eines 
Jahres identisch mit dem zu verzinsenden Kapital. 

5) Nach Ablauf eines Jahres werden die Kontenbewegungen 
abgeschlossen. Die geleisteten Zins-, Tilgungs- und 
Ratenzahlungen werden aufsummiert, und das zu verzin¬ 
sende Kapital wird um den Tilgungsbetrag vermindert. Die 
Restschuld bleibt beim AbschluB unberiihrt, da sie sich 
mit jeder Ratenzahlung verkleinert (naturlich nur, wenn 
auch wirklich Schulden getilgt werden). 

6) Der Tilgungsplan wird solange fortgesetzt, bis die Rest¬ 
schuld kleiner als die Rate ist. Im vorliegenden Programm 
erfolgt dann ein entsprechender Ausdruck. 

7) Um die Bildschirmausgabe zu optimieren, ist im vorlie¬ 
genden Programm bei der Tabellenerstellung darauf ver- 
zichtet worden, die Erl&uterung "Bitte eine Taste driicken!" 
gesondert auszugeben. Weiterhin ist auf die Ausgabestellen 
der PRINT USING-Anweisung zu achten. Geben Sie nach 
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dem Programmstart MilliardenbetrSge ein, so ger&t die 
Tabellenerstellung durcheinander. 


10 REM Tilgungsplan 
20 CLS 

30 PRINT TAB(7)"Programm zur Aufstellung" 

40 PRINT TAB(7)"eines Tilgungsplans" 

50 PR I NT:PR I NT:PR I NT:PR I NT:PR I NT 
60 PRINT TAB(11) "Bernd Kowal, 1985" 

70 GOSUB 640 

80 INPUT"Kreditbetrag (nominal) ";Kb:PRINT 
90 INPUT"Nominaler Jahreszinssatz ";Zs:PRINT 
100 INPUT"Wieviel % AnfangstiIgung ";t:PRINT 
110 PRINT"Eingabe des Auszahlungsdatums :" 

120 INPUT"Tag ";tg 
130 INPUT"Monat ";m 
140 INPUT"Jahr »;j$:PRINT 
150 j$=RIGHT$(j$,2):j=VAL(j$) 

160 PRINT"Es wird somit der";tg;".»;m;».";j 
170 PRINT"als Auszahlungsdatum angenommen." 

180 GOSUB 640:CLS:MODE 2 
190 GOSUB 550 

200 kl=1:k2=5:R=0:Zi=0:Ti=0:Rs=Kb 

210 FOR i=k1 TO k2 

220 IF i=k1 THEN 260 

230 IF m>9 AND j=99 THEN j=0:GOTO 250 

240 IF m>9 THEN j=j+1 

250 IF m>9 THEN m=m-9 ELSE m=m+3 

260 PRINT;USING"##.";tg;:PR I NT;USING"##.";m; 

270 PR I NT;USING"##";j; 

280 IF i=1 THEN PRINT TAB(11)"Auszahlung";:GOTO 310 
290 IF i=k1 THEN PRINT TAB(11)"Abschluss";:GOTO 310 
300 PRINT TAB(11)1-1;". Rate"; 

310 PRINT TAB(23);USING"#####.##";R; 

320 PRINT;USING" #######.##";Kb; 

330 PRINT;USING" #####.##";Zi; 

340 PRINT;USING" #####.##";Ti; 

350 PRINT;USING" #######.##";Rs 

360 IF i>k1 THEN 410 
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370 IF i=1 THEN R=Kb*(Zs+t)/400 ELSE R=R/4 

380 PRINT 

390 Zi=Kb*Zs/400 

400 Ti=R-Zi 

410 Rs=Rs-Ti 

420 IF Rs<0 THEN 510 

430 IF i<k2 THEN 460 

440 R=R*4:Zi=Zi*4:Ti=Ti*4 

450 Kb=Kb-Ti:Rs=Rs+Ti/4 

460 IF zae=3 AND k1=i THEN zae=0:GOSUB 640:GOSUB 560 

470 NEXT i 

480 zae=zae+1 

490 k1=k2:k2=k2+4 

500 GOTO 210 

510 PRINT:PRINT"Mit der Zahlung von"; 

520 PRINT INT((Rs+Ti)*100+0.5)/100;"DM sind "; 

530 PRINT"die Schulden abgetragen." 

540 GOSUB 640:MODE 1:END 

550 REM UP Tabellenueberschrift 

560 PRINT"Datum Vorgang Rate Zu ver-"; 

570 PRINT" Zins Tilgung Rest-" 

580 PRINT TAB(25)"in DM";TAB(35)"zinsendes"; 

590 PRINT TAB(48)"in DM";TAB(58)"in DM";TAB(71 V'schuld" 
600 PRINT TAB(35)"Kapital";TAB(71)"in DM" 

610 PRINT TAB(35)"in DM" 

620 PLOT 0,330:DRAU 620,330:PRINT 

630 RETURN 

640 REM UP Uarten 

650 LOCATE 7,25 

660 IF i=0 THEN PRINT"Bitte eine Taste druecken !" 

670 x$=INKEYS 

680 IF x$="" THEN 670 

690 CLS:RETURN 
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Variablenliste: 


i Laufindex 

j Jahr 

j$ Eingabefeld fur j 

kl Anfangswert der Programmschleife 

k2 Endwert der Programmschleife 

Kb nominaler Kreditbetrag bzw. zu verzinsendes Ka- 

pital 

m Monat 

R Rate in DM 

Rs Restschuld in DM 

t Anfangstilgung in % 

tg Tag 

Ti Tilgung in DM 

zae Zahlvariable 

Zi Zins in DM 

Zs nominaler Jahreszins in % 


Programmbeschreibung : 

10-70 Uberschrift 

80-170 Eingabe der AusgangsgroBen. Die Jahresangabe 

wird als Stringvariable aufgefaBt, um in Satz 150 
nur die beiden zuletzt eingegebenen Zeichen in 
einen numerischen Ausdruck umzuwandeln. Diese 
etwas umstSndliche Yorgehensweise hat zur Folge, 
daB von einer Eingabe "1986" nur der Wert "86" als 
Jahr in die Tabellenerstellung eingeht. 

180 Es wird zum Unterprogramm "Warten" verzweigt, 

der Bildschirm wird geraumt und der Bildschirm- 
modus geSndert (80 Zeichen pro Zeile). 

190 Sprung ins Unterprogramm (Satz 550) zur Ausgabe 

der Tabellenuberschrift. 
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200 Belegung der Variablen mit Ausgangswerten fur 

den ersten Schleifendurchlauf. 

210-470 Bildung einer Programmschleife zur Berechnung 
der einzelnen GroBen und zur tabellarischen Aus- 
gabe der Ergebnisse fur jeweils eine Periode (= 1 
Jahr). Beim jeweils ersten Durchlauf wird der Vor- 
gang "Auszahlung" bzw. "AbschluB" beriicksichtigt. 
Es lassen sich hier die folgenden Programmteile 
unterscheiden: 

220-250 Im 2. - 5. Durchlauf je Periode (dann werden 
Raten gezahlt) verandert sich das Datum. 

260-270 Ausgabe des Datums. 

280-300 Ausgabe des jeweiligen Vorgangs (1. Durchgang 

der 1. Periode: Auszahlung, 1. Durchgang der 2. 
Periode: AbschluB; 2. - 5. Durchgang aller Perio- 
den: Ratenzahlung). 

310-350 Ausgabe der iibrigen Tabellenwerte. 

360-400 Im jeweils 1. Durchgang werden Rate, Zins und 

Tilgung berechnet (bleiben fur die jeweilige Peri¬ 
ode konstant), und eine Leerzeile wird ausgegeben. 
In Satz 370 ist zu beachten, daB eigentlich nur im 
1. Durchgang der 1. Periode die Rate berechnet 
wird. Ansonsten wird der letzte AbschluBwert 
einfach durch 4 dividiert. 

410-420 Bestimmung der Restschuld. Sind alle Raten ge¬ 
zahlt, wird zur Kommentarausgabe (Satz 510) 
verzweigt. 


430-450 


Im jeweils letzten Durchgang werden die Rate, der 
Zins, das zu verzinsende Kapital und die Rest¬ 
schuld fur den AbschluB berechnet. 
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460 Sind die Ergebnisse fur 3 Perioden (zae=3) ein- 

schlieBlich AbschluB (kl=i, 1. Durchgang) ausgege- 
ben, wird der Zahlindex wieder gleich 0 gesetzt 
und in die Unterprogramme "Warten" und 
"Tabellenuberschrift" verzweigt. 

480-500 Nach Beendigung des Schleifendurchlaufs fiir eine 
Periode wird der Zahlindex um 1 erhbht, Anfangs- 
und Endwert der Programmschleife werden neu 
belegt, und zum Satz 210 (erneuter Schleifen- 
durchlauf) verzweigt. 

510-530 Es wird ein Kommentar beziiglich der Restschuld 
ausgegeben, wenn keine Rate mehr zu zahlen ist. 

540 Sprung ins Unterprogramm "Warten", Umschaltung 

auf den 40-Zeichen-Modus und Programmende 

550-630 Unterprogramm "Tabellenuberschrift". In Satz 620 
wird die Uberschrift unterstrichen. Mit PLOT wird 
der Grafik-Cursor in die entsprechende Position 
gebracht, und mit DRAW wird die Linie gezeich- 
net. 

640-690 Unterprogramm "Warten". Der Kommentar "Bitte 
eine Taste driicken" wird nur dann ausgegeben, 
wenn noch nicht mit der Tabellenerstellung begon- 
nen wurde. 


Programmer gebnisse: 

Starten Sie das Programm fiir einen nominalen Kreditbetrag von 
10000 DM, einem Jahreszins von 7% und einer Anfangstilgung 
von 3%, und lassen Sie sich das Geld am 30.12.1985 auszahlen, 
so werden Sie sehen, daB Sie bei einer vierteljahrlichen Belas- 
tung von 225 DM, 88 Raten bis zum 30.12.07 (also genau 22 
Jahre) entrichten miissen und daB dann noch ein Restbetrag von 

198.85 DM zu zahlen ist. Sie zahlen dann also insgesamt 

19998.85 DM zuriick. 
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9.4 Haushaltsorganisation 

Um es gleich vorwegzunehmen: In diesem Kapitel wird kein 
Finanzbuchhaltungsprogramm fur den Haushalt vorgestellt. Ein 
normaler Haushalt ist schlieBlich auch nicht wie ein mittlerer 
Handwerksbetrieb zu fiihren. Sofern Sie also in die Geheimnisse 
der doppelten Buchfuhrung eingeweiht sind, kdnnen Sie diese 
hier getrost vergessen. Vielmehr wird Ihnen hier eine pro- 
grammtechnische Hilfe zur Erhaltung (oder Erlangung) des 
Uberblicks der im Haushalt anfallenden Kosten geboten. 

Je verniinftiger Sie mit Ihrem Geld umgehen, desto mehr kbn- 
nen Sie sich leisten. Diese weit verbreitete Ansicht ist sicherlich 
richtig. Aber was heiGt denn hier verniinftig? Fur den Ver- 
braucher (Verbraucher sind wir alle) ist es haufig kaum moglich, 
die Qualit&t eines Produktes zu beurteilen. AuBerdem sind die 
Preise in unserer Wirtschaft standig in Bewegung. Es ist also gar 
nicht so einfach, sich verniinftig zu verhalten. 

Daher ist es vielleicht sinnvoll zu fragen, wofur denn das Geld 
im Haushalt ausgegeben wird. Mancher, der sich diese Frage 
noch nie gestellt hat, wird sich wundern, wenn er sieht, wie sich 
seine Ausgaben auf die verschiedenen Kategorien wie Kleidung, 
Ernahrung, Reisen etc. verteilen. Eine derartige Kontrolle 
umfaBt natiirlich eine Unmenge Einzelinformationen. Daher 
bietet sich der Einsatz Ihres CPC zur Verwaltung dieser Daten 
geradezu an. 

Das folgende Programm iibernimmt diese Aufgabe. Es hat die 
folgenden Funktionen: 

- Geldausgaben eingeben (mit den Variablen 
"Warenbezeichnung", "DM-Betrag", "Kategorie" und 
"Datum”) 

- Kategorien bilden (bis zu 10 Kategorien kdnnen gebil- 
det werden) 
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- Geldausgaben und Kategorien 

- einlesen 

- abspeichern 

- ansehen (in Form einer Tabelle) 

- berechnen (fur beliebige ZeitrSume werden die DM- 
Betrage pro Kategorie ausgegeben; die Darstellung der 
prozentualen Anteile der einzelnen Kategorien erfolgt 
in Form eines Balkendiagramms) 

- Arbeit beenden 

Das Programm verwaltet also nicht nur die einzelnen Informa- 
tionen, sondern es ubernimmt auch die wichtige Aufgabe, 
Berechnungen durchzufuhren. So kbnnen Sie am Monats- oder 
Jahresende leicht feststellen, fur welche Bereiche (Kategorien) 
Sie wieviel Geld ausgegeben haben. 

Da nur 10 Kategorien gebildet werden kdnnen (mehr wurden die 
Ubersichtlichkeit einschranken), ist es sinnvoll, eine Kategorie 
"sonstiges" zu bilden, um Zuordnungsschwierigkeiten zu vermei- 
den. Das Einlesen miissen Sie vor der Eingabe neuer Daten erle- 
digen, da ansonsten die schon eingegebenen Informationen 
iiberschrieben werden. 

Insgesamt ist im Programm Platz fur jeweils 1000 Eingaben 
reserviert worden. Sie konnen diese Zahl zwar auch noch erho- 
hen (Satz 80-90 des Programms, aber: Speicherkapazitat Ihres 
Rechners beachten!), jedoch ware eine Monats- oder Jahres- 
"Endabrechnung" sicherlich sinnvoller. 

Ansonsten ist das Programm weitestgehend selbsterkiarend. Nur 
nach der Ausgabe des Balkendiagramms wird die Aufforderung 
"Bitte eine Taste drucken" nicht ausgegeben, da der auf dem 
Bildschirm zur Verfiigung stehende Platz fur das Diagramm 
verwendet wird und ein Hochscrollen des Bildschirms vermieden 
werden sollte. 
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10 REM Haushaltsorganisation 
20 CIS 

30 PRINT" Programm zur Kontrolle" 

40 PRINT" Ihrer Geldausgaben" 

50 PR I NT:PR I NT:PR I NT:PR I NT:PR I NT:PR I NT 
60 PRINT TAB(9) "Bernd Kowal, 1985" 

70 GOSUB 2060 

80 DIM wb$(1000),dm(1000),k(1000) 

90 DIM tg(1000),mo(1000),ja(1000),ja$(1000) 

100 REM 
110 REM Menue 
120 REM 

130 PRINT TAB(17)"Menue":PRINT:PRINT 

140 PRINT TAB(33)"Eingabe":PRINT 

150 PRINT"Geldausgaben eingeben";TAB(36)"1":PRINT 

160 PRINT"Kategorien bilden";TAB(36)"2":PRINT 

170 PRINT"Geldausgaben und Katgorien":PRINT 

180 PRINT" einlesen";TAB(36)"3":PRINT 

190 PRINT" abspeichern";TAB(36)"4":PRINT 

200 PRINT" ansehen";TAB(36)"5":PRINT 

210 PRINT" berechnen";TAB(36)"6" 

220 PRINT:PRINT"Arbeit beenden";TAB(36)"7" 

230 PR I NT:PR I NT:INPUT"Ihre Wahl ";a:CLS 
240 IF a<1 OR a>7 THEN CLS:GOTO 130 
250 ON a GOTO 270,620,780,920,1080,1240,1930 
260 REM 

270 REM Geldausgaben eingeben 
280 REM 

290 IF ka>0 THEN 320 

300 PRINT"Sie muessen erst Kategorien bilden." 

310 GOSUB 2050:GOTO 620 

320 WINDOW #2,20,40,1,25 

330 PRINT #2,"Kategorien":PR I NT #2 

340 FOR i=1 TO ka 

350 PRINT #2,i;".";k$(i) 

360 NEXT i 

370 WINDOW #1,1,19,1,25 
380 ga=ga+1 




246 


Das erode BASIC-Buch zum CPC 6128 


390 PRINT #1,"Die Eingabe wird" 

400 PRINT #1,"beendet,wenn Sie" 

410 PRINT #1,"fuer die Waren-" 

420 PRINT #1,"bezeichnung eine" 

430 PRINT #1,"0 eingeben.":PRINT #1 
440 PRINT #1,"Bitte machen Sie" 

450 PRINT #1,»folgende Eingaben:":PRINT #1:PRINT #1 
460 PRINT #1, ga;".te Eingabe :":PRINT #1 
470 PRINT #1,"Warenbezeichnung" 

480 INPUT #1,wb$(ga):PRINT #1 

490 IF wb$(ga)="0" THEN ga=ga-1:CLS:GOTO 110 

500 PRINT #1,"DM-Betrag" 

510 INPUT #1,dm(ga):PRINT #1 
520 PRINT #1,"Kategorie" 

530 INPUT #1,"Nr. ";k(ga):PRINT #1 
540 IF k(ga)<1 OR k(ga)>ka THEN 520 
550 PRINT #1,"Datum" 

560 INPUT #1,"Tag ";tg(ga) 

570 INPUT #1,"Monat ";mo(ga) 

580 INPUT #1,"Jahr ";ja*(ga) 

590 ja$(ga)=RIGHT$(ja$(ga),2):ja(ga)=VAL(ja$(ga)) 

600 CIS #1:GOTO 380 
610 REM 

620 REM Kategorien bitden 
630 REM 

640 IF ka=0 THEN 690 

650 PRINT"Folgende kategorien bestehen bereits :" 

660 PRINT:FOR i=1 TO ka 

670 PRINT i;".te Kategorie :";k$(i) 

680 NEXT i:PR I NT:PR I NT 

690 PRINT"Sie koennen max. 10 Kategorien bilden." 

700 PRINT"Geben Sie eine 0 ein, wenn Sie keine" 

710 PRINT"weitere Kategorie mehr bilden wollen.":PRINT 
720 ka=ka+1 

730 IF ka=11 THEN ka=ka-1:G0SUB 2050:GOTO 110 
740 PRINT ka;".te Kategorie »;:INPUT k$(ka) 

750 IF k$(ka)="0" THEN ka=ka-1:CLS:GOTO 110 
760 GOTO 720 
770 REM 

780 REM Getdausgaben und Kategorien einlesen 
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790 REM 

800 INPUT"Wie heisst die Datei ";n$:OPEN!N n$ 

810 INPUT #9,ga,ka 
820 FOR i=1 TO ga 
830 INPUT #9,wb$(i) 

840 INPUT #9,dm(i),k(i),tg(i),mo(i),ja(i) 

850 NEXT i 

860 FOR i=1 TO ka 

870 INPUT #9,k$(i) 

880 NEXT i 
890 CLOSE IN 
900 CLS:GOTO 110 
910 REM 

920 REM Geldausgaben und Xategorien abspeichern 
930 REM 

940 PRINT"Unter welchem Namen sollen die Infor-" 
950 INPUT"mationen abgespeichert werden ";n$ 

960 OPENOUT n$ 

970 PRINT #9,ga,ka 
980 FOR i=1 TO ga 
990 PRINT #9,wb$(i) 

1000 PRINT #9,dm(i),k(i),tg(i),mo(i),ja(i) 

1010 NEXT i 

1020 FOR i=1 TO ka 

1030 PRINT #9,k$(i) 

1040 NEXT i 
1050 CLOSEOUT 
1060 CLS:GOTO 110 
1070 REM 


1080 REM Geldausgaben und Xategorien ansehen 
1090 REM 

1100 MODE 2:af=1:h=20 

1110 PRINT"Eingabe-Nr. Warenbezeichnung 

1120 PRINT"DM-Betrag Kategorie Datum" 

1130 PRINT:FOR i=af TO ga 
1140 PRINT USING " ##### ";i; 

1150 PRINT USING " \ \";wb$(i); 

1160 PRINT USING " ######.##";dm(i); 

1170 PRINT USING " \ \ ";k$(k(i)); 

1180 PRINT USING tg(i);mo(i); 
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1190 PRINT USING "##";ja(i) 

1200 IF i=h THEN h=h+20:af=af+20:GOSUB 2060:GOTO 1110 
1210 NEXT i 

1220 GOSUB 2050:MODE 1:GOTO 110 
1230 REM 

1240 REM Berechnungen 
1250 REM 

1260 PRINT"Geben Sie bitte den Zeitraum an, fuer" 

1270 PRINT"den Berechnungen erfolgen sollen.":PRINT 
1280 PRINT"von :'';TAB(18)"bis :":PRINT 
1290 PRINT:PRINT"Tag";TAB(18)"Tag H :PRINT 
1300 PR I NT"Mona t";TAB(18)"Monat":PRINT 
1310 PRINT M Jahr H ;TAB(18)"Jahr" 

1320 LOCATE 7,7:INPUT at 
1330 LOCATE 7,9:INPUT am 
1340 LOCATE 7,11:INPUT aja$ 

1350 LOCATE 24,7:INPUT et 

1360 LOCATE 24,9:INPUT em 

1370 LOCATE 24,11:INPUT ejaS 

1380 a j a$=RIGHT$( aj a$ ,2):a j a=VAL(a j a$) 

1390 eja$=RIGHT$(eja$,2):eja=VAL(ejaS) 

1400 PRINT:PRINT:PRINT TAB(8)"Ich rechne !" 

1410 su=0:FOR i=1 TO ka 
1420 ks(i)=0:NEXT i 
1430 FOR i=1 TO ga 

1440 IF ja(i)<aja OR ja(i)>eja THEN 1510 
1450 IF ja(i)>aja AND ja(i)<eja THEN 1490 
1460 IF mo(i)<am OR mo(i)>em THEN 1510 
1470 IF mo(i)>am AND mo(i)<em THEN 1490 
1480 IF tg<i><at OR tg(i)>et THEN 1510 
1490 ks(k(i))=ks(k(i))+dm(i) 

1500 su=su+dm(i) 

1510 NEXT i 

1520 CLS:PRINT M In diesem Zeitraum haben Sie insge- 11 
1530 PRINT"samt";INT(su*100+0.5)/100,-"DM ausgegeben." 
1540 PRINT:PR I NT 

1550 PRINT"Fuer die einzelnen Kategorien" 

1560 PRINT"ergibt sich folgendes BiId :":PRINT 
1570 PRINT"Nr. der Name der";TAB(35)"DM" 

1580 PRINT"Kategorie Kategorie'':PRINT 



Anwender programme 


249 


1590 FOR i=1 TO ka 
1600 PRINT USING 

1610 PRINT USING " \ V;k$(i); 

1620 z=INT(ks(i)*100+0.51/100 

1630 PRINT TABOO) USING "#######.##";z 

1640 NEXT i 

1650 GOSUB 2050 

1660 PRINT"Graphische Darstellung der gerundeten" 
1670 PRINT"prozentualen Anteile der einzelnen" 

1680 PRINT"Kategorien an den Gesamtausgaben 
1690 pcn=0 

1700 FOR i=1 TO ka 

1710 p(i)=ks(i)*100/su 

1720 IF p(i)>pm THEN pm=p(i) 

1730 NEXT i 
1740 FOR i=1 TO ka 
1750 pp(i)=p(i)*100/pm 
1760 NEXT i 

1770 PLOT 17,17:DRAW 17,320 
1780 PLOT 17,17:DRAW 520,17 
1790 LOCATE 1,5:PRINT"%" 

1800 LOCATE 34,25:PRINT"Kateg." 

1810 j=0 

1820 FOR i=3 TO ka*3 STEP 3 
1830 j = j+1 

1840 LOCATE i,25:PRINT j 
1850 x=ROUND(18*pp(j)/100) 

1860 FOR 1=24 TO 24-x STEP -1 
1870 LOCATE 1+1,1 SPRINT CHR$(143) 

1880 NEXT l 

1890 LOCATE i,23-x:PRINT USING p(j) 

1900 NEXT i 

1910 GOSUB 2100:GOTO 110 
1920 REM 

1930 REM Programm beenden 
1940 REM 

1950 PRINT"Haben Sie auch alle Informationen" 

1960 PRINT"ordnungsgemaess abgespeichert ?" 

1970 PRINT"FalIs nicht, geben Sie einfach" 

1980 PRINT"ein 'oh' ein (ansonsten reicht die" 
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1990 PRINT M Leertaste) 

2000 INPUT a$ 

2010 IF a$="oh" THEN CLS:GOTO 920 

2020 PR I NT:PR I NT:PR I NT" Auf Wiedersehen" 

2030 PRINT:PRINT"Sie koennen mich jetzt ausschalten" 
2040 END 
2050 REM 

2060 REM UP Marten 
2070 REM 

2080 LOCATE 5,25 

2090 PRINT"Bitte eine Taste druecken !" 

2100 x$=INKEY$ 

2110 IF x$="" THEN 2100 
2120 CLS:RETURN 


Variablenliste: 

a Antwort "Menuauswahl" 

a$ Antwortstring im Programmteil "Arbeit beenden") 

af Schleifenanfangswert 

aja Jahresangabe (Anfang) 

aja$ Eingabefeld fur aja 

am Monatsangabe (Anfang) 

at Tagesangabe (Anfang) 

dm(i) DM-Betrag 

eja Jahresangabe (Ende) 

eja$ Eingabefeld fur eja 

em Monatsangabe (Ende) 

et Tagesangabe (Ende) 

ga Anzahl der Geldausgaben 

h Hilfsvariable 

i Laufindex 

j Index 

ja(i) Jahr der Geldausgabe 

ja$(i) Eingabefeld fur ja(i) 

k(i) Kategoriennummer einer Geldausgabe 

k$(i) Kategorienbezeichnung 

ka Anzahl der definierten Kategorien 
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ks(i) Summe der Geldausgaben fur die jeweilige Kate- 

gorie in einem Zeitraum 

1 Schleifenanfangswert fur das Zeichnen der Balken 

mo(i) Monat der Geldausgabe 

n$ Name der abzuspeichernden Informationen 

p(i) Prozentsatz der Geldausgaben pro Kategorie bezo- 

gen auf die Gesamtausgaben 

pm maximaler Wert bezuglich der Variablen p(i) 

pp(i) Prozentsatz der Geldausgaben pro Kategorie bezo- 

gen auf den maximalen Wert pm 
su Summe der Geldausgaben in einem Zeitraum 

tg(i) Tag der Geldausgabe 

wb$(i) Warenbezeichnung 

x Hilfsvariable zur Bestimmung des Schleifenend- 

wertes in der Programmschleife zum Zeichnen der 
Balken 

z auf zwei Dezimalstellen gerundeter Wert der 

Variablen ks 


Programmbeschreibung : 

10-70 Uberschrift 

80-90 Speicherplatzreservierung 

100-250 Menuauswahl und entsprechende Programmver- 

zweigungen 

260-600 Eingabe der Geldausgaben. In diesem Programmteil 

werden zwei Bildschirmbereiche definiert. Wahrend 
im ersten Fenster (linker Bildschirmbereich, defi¬ 
niert in Satz 370) die Eingaben erfolgen, werden 
im zweiten Fenster (rechter Bildschirmbereich, 
definiert in Satz 320) die vorhandenen Kategorien 
ausgegeben. Somit hat der Programmbenutzer die 
einzelnen Kategorien immer vor Augen. Nach 
erfolgter Eingabe wird dann in Satz 600 nur das 
erste Fenster geraumt. Sind noch keine Kategorien 
festgelegt worden (siehe Satz 290-310), wird ein 
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610-760 

770-900 

910-1060 

1070-1220 

1230-1910 

1260-1390 


Kommentar ausgegeben und zum Programmteil 
"Kategorien bilden" verzweigt. Die Eingabe einer 0 
fur die Variable "Warenbezeichnung" bewirkt den 
Riicksprung zur Meniiauswahl (Satz 490). Das Ein- 
gabefeld fur die Variable ‘ja‘ ist ein String, um in 
Satz 590 aus der mQglichen Eingabe mit Jahrhun- 
dertangabe (z. B. 1985) nur die letzten beiden Zif- 
fern (also 85) im Feld ‘ja(i)‘ abzulegen. 

Bildung von Kategorien. Falls schon Kategorien 
vorhanden sind, werden diese ausgegeben (Satz 
640-680). AnschlieBend kdnnen Kategorien gebil- 
det werden. Wenn 10 Kategorien gebildet sind Oder 
eine 0 eingegeben wird, erfolgt ein Riicksprung zur 
Menuauswahl (siehe Satz 730 und 750). 

Geldausgaben und Kategorien werden eingelesen. 

Geldausgaben und Kategorien werden abgespei- 
chert. 

Geldausgaben und Kategorien ansehen. Dazu wird 
in Satz 1100 der Bildschirmmodus auf 80 Zeichen 
pro Zeile gesetzt. Mit Hilfe der PRINT US1NG- 
Anweisung erfolgt dann eine formatierte tabellari- 
sche Ausgabe. Die Variablen ‘af‘ und ‘h‘ dienen 
der AusgabebeschrSnkung auf jeweils 20 Tabel- 
lenzeilen. Vor dem Riicksprung zur Menuauswahl 
wird wieder auf den 40-Zeichen-Modus umge- 
schaltet (Satz 1220). 

Berechnungen - es lassen sich hier die folgenden 
Programmzeilen unterscheiden: 

Eingabe eine Zeitraumes, fiir den die Berechnun¬ 
gen erfolgen sollen. Dabei wird zuerst der Einga- 
betext ausgegeben, und anschlieBend werden die 
INPUTS entsprechend positioniert. Aus den glei- 
chen Griinden wie in Satz 590 werden die Jah- 
resangaben als Strings eingegeben. 
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1400 Kommentar 

1410-1420 Die zu berechnenden Variablen ‘su‘ und ‘ks(i)‘ 
werden mit dem Anfangswert 0 belegt. 

1430-1510 Liegt eine Geldausgabe innerhalb des angegebenen 
Zeitraumes, so werden die Variablen ‘su‘ und ‘ks‘ 
um den entsprechenden DM-Betrag erhdht. Der 
Vergleich der Jahres-, Monats- und Tagesangabe 
zu einer Geldausgabe mit dem angegebenen Zeit- 
raum ist sozusagen nur fur dieses Jahrhundert gul- 
tig, da in die Jahresangabe nicht das zugehdrige 
Jahrhundert eingeht. Beispielsweise wird die Jah¬ 
resangabe 2005 genauso behandelt wie die Angabe 
1905. 

1520-1650 Formatierte Ausgabe der auf zwei Dezimalstellen 
gerundeten DM-BetrUge (pro Kategorie und insge- 
samt) 

1660-1900 Grafische Darstellung der prozentualen Anteile der 
einzelnen Kategorien an den Gesamtausgaben. 
Detaillierte Ausfiihrungen zu der hier angewandten 
Vorgehensweise finden Sie in Kapitel 7.7. 

1910 Ende dieses Programmteils 

1920-2040 Programmende - es besteht in diesem Programmteil 
noch die Mbglichkeit - falls dies vergessen wurde 
- eingegebene Daten abzuspeichern. 

2050-2120 Unterprogramm "Warten" 


9.5 Textverarbeitung 

Im Vergleich zur professionellen Textverarbeitungs-Software 
weist das Programm in diesem Kapitel natiirlich erhebliche 
Mangel auf. Aber es ist ja schlieBlich auch nur fur den Hausge- 
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brauch und nicht furs Btiro erstellt worden. Zudem werden 
Ihnen weiter unten in diesem Kapitel noch einige Tips zur Pro- 
grammverbesserung gegeben, die sich inhaltlich alle auf voran- 
gegangene Kapitel dieses Buches beziehen. 


Aber kommen wir direkt zu den Bearbeitungsschritten, die Sie 
mit unserem Programm durchfiihren konnen: 

- Texte eingeben (iiber die Tastatur) 

- Texte ansehen (auf dem Bildschirm) 

- Texte korrigieren (Textzeilen verbessern, einfugen Oder 
loschen) 

- Texte einlesen 

- Texte abspeichern 

- Texte drucken 


Die Anzahl der Zeichen pro Zeile kdnnen Sie selbst wahlen (bis 
zu 70 Zeichen). Ebenfalls kdnnen Sie die Breite des linken Ran- 
des bei der Druckausgabe frei bestimmen. Weitere Formatanga- 
ben werden nicht gebraucht. So wie Sie den Text auf dem Bild¬ 
schirm sehen, wird er auch ausgedruckt. 

Im Gegensatz dazu geschieht das Formatieren, also das Aufteilen 
eines Textes zum anschlieBenden Druck, bei vielen professio- 
nellen Textverarbeitungsprogrammen fur den CPC in einem 
separaten Arbeitsgang. Der Monitor ist nun einmal nicht dazu in 
der Lage, alles das darzustellen, was auch der Drucker drucken 
kann. Weiterhin ist bei den meisten Textverarbeitungsprogram¬ 
men nicht auf die Lange einer Textzeile zu achten. Eine ent- 
sprechende Angabe kdnnen Sie dann vor der Druckausgabe 
machen. Naturlich konnen Sie sich den formatierten Text auch 
erst einmal auf dem Bildschirm zeigen lassen. Zusammenfassend 
laflt sich sagen, daB Sie bei professionellen Programmen - neben 
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einer komfortableren Handhabung (Editierung) des Textes - 
viele Mbglichkeiten haben, einen eingegebenen Text aufs Papier 
zu bringen. 

Bei dem hier vorliegenden Programm ist das ein wenig anders. 
Zwar wird die Anzahl der Zeichen pro Zeile bei der Druckaus- 
gabe auch begrenzt, Sie mussen aber bei der Texteingabe selbst 
darauf achten, nicht zuviele Zeichen pro Zeile einzugeben. Es 
wird lediglich eine senkrechte Linie auf dem Bildschirm 
gezeichnet, die Ihnen anzeigt, wann eine Zeilenlange erreicht ist. 
Das ist immer dann der Fall, wenn der Cursor diese Linie 
beriihrt. Durch die Betatigung der RETURN- Oder ENTER- 
Taste kann dann die nachste Zeile geschrieben werden. In wel- 
cher Zeile Sie sich befinden, wird natiirlich wahrend der Text¬ 
eingabe angezeigt. 

Insgesamt kann ein mit dem vorliegenden Programm bearbeiteter 
Text maximal 300 Textzeilen umfassen (unabhangig von der 
Seitenaufteilung). Das sind ca. 6 Schreibmaschinenseiten. Indem 
Sie die Satze 180 und 560 andern, kdnnen Sie auch mehr Text¬ 
zeilen eingeben. Sie mussen dann nur auf die begrenzte Spei- 
cherkapazitat Ihres Rechners achten. Entweder unterbrechen Sie 
dazu den Programmablauf und fragen mit der Funktion FRE 
den freien Speicherplatz ab, oder Sie nehmen diese Funktion in 
geeigneter Weise in den Programmablauf auf, um ein 
"Uberlaufen" des Speichers zu verhindern. 

Sie bleiben ubrigens aufgefordert, weitere Programmverbesse- 
rungen selbst vorzunehmen. Hier ein paar Vorschiage: 

1) Einbringen einer Suchfunktion mit Hilfe der Funktion 
INSTR (siehe Kapitel 9) 

2) Andere Tastenbelegung (siehe Kapitel 6.3) 

3) Belegung einiger Tasten mit haufig vorkommenden Wor- 
tern (KEY, KEY DEF) 

4) Einbringen eines druckerspezifischen Formatierungsmeniis 
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5) Begrenzung einer Textzeile mit Hilfe der Funktion POS 

6) Programmierung einer Ausgabe im Blocksatz. Mit den 
Stringbearbeitungsfunktionen muB dabei jede Textzeile auf 
ihre Lange uberpriift werden und gegebenenfalls dort, wo 
sich schon eine Leerstelle befindet, weitere Leerzeichen 
eingefugt werden. Auf eine Begrenzung der Textzeilen 
beziiglich ihrer Lange kann dann verzichtet werden 
(FlieBtext). 

7) Eine verbesserte Editierung des Textes. Zum Beispiel 
konnte man mit dem Befehl VPOS bestimmen, welche 
Textzeile korrigiert werden soil. Diese Zeile kbnnte dann 
direkt uberschrieben werden. 

8) Nutzung der zweiten 64 K fur weitere Texte (siehe Kapi- 
tel 9) 

Wie Sie sehen, kdnnen Sie eine ganze Menge der in den voran- 
gegangenen Kapiteln vorgestellten Befehle und Programmiertips 
in ein solches Programm einbringen. Sie kflnnen somit Ihre 
gesamten BASIC-Kenntnisse anwenden und sicherlich noch das 
eine Oder andere dazulernen. 

Wenn Sie bei dem vorliegenden Programm einen abgespeicherten 
Text erganzen wollen, so kdnnen Sie diesen einlesen und dann 
neue Textzeilen hinzufugen. Die Formatangaben "Zeichen pro 
Zeile" und "Zeilen pro Seite" miissen Sie dann aber ubernehmen. 
Nur die Angabe "Zeilen pro Seite" ist bei der Druckausgabe 
noch zu andern. 

Es ist nicht mdglich, einen Text zusatzlich zu einem eingegebe- 
nen Text einzulesen. Jedoch kann man einen eingelesenen Text 
an jeder beliebigen Stelle erganzen. 

Ansonsten ist das Programm weitestgehend selbsterklarend. Am 
besten Sie probieren es gleich einmal aus. Und, ziehen Sie nicht 
den Stecker, bevor Sie Ihren Text gesichert haben ... 
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10 REM Textverarbeitung 
20 CLS 

30 PRINT" Programm zur Textverarbeitung" 

40 PR I NT:PR I NT:PRI NT:PR I NT:PR I NT:PR I NT 
50 PRINT TAB(9) "Bernd Kowal, 1985" 

60 GOSUB 2480 
70 REM 

80 REM deutsche Sonderzeichen 
90 REM 

100 SYMBOL AFTER 90 

110 SYMBOL 125,&0,&66,&0,&66,&66,&66,&3E,&0 
120 SYMBOL 93,&66,&0,&66,&66,&66,&66,&3C,&0 
130 SYMBOL 124,&66,&0,&3C,&66,&66,&66,&3C,&0 
140 SYMBOL 92, &BA, &6C, 8.C6, &C6, &C6, &6C, &38, &0 
150 SYMBOL 123,&C6,&0,&78,&C,&7C,&CC,&76,&0 
160 SYMBOL 91,&5A,&3C,&66,&66,&7E,&66,&66,&0 
170 SYMBOL 126,&7C,&C6,&C6,&FC,&C6,&C6,&F8,&C0 
180 DIM t$(300) 

190 REM 
200 REM Menue 
210 REM 

220 PRINT TAB(15)"Menue":PRINT 
230 PRINT TAB(33)"Eingabe":PRINT 
240 PRINT"Texte":PRINT 
250 PRINT" eingeben";TAB(36)"1":PRINT 
260 PRINT" ansehen";TAB(36)"2":PRINT 
270 PRINT" korrigieren";TAB(36)"3":PRINT 
280 PRINT" einlesen";TAB(36)"4":PRINT 
290 PRINT" abspeichern";TAB(36)"5":PRINT 
300 PRINT" drucken";TAB(36)"6":PRINT 
310 PRINT"Arbeit beenden";TAB(36)"7" 

320 PR I NT:PR I NT:PR I NT:INPUT"Ihre Wahl ";a:CLS 

330 IF a<1 OR a>7 THEN 220 

340 ON a GOSUB 370,640,840,1720,1820,1940,2250 

350 MODE 1:GOTO 220 

360 REM 

370 REM Texte eingeben 
380 REM 

390 IF zz>0 THEN 420 

400 INPUT"Wieviele Zeichen pro Zeile ";zz:PRINT 
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410 IF zz<1 OR zz>70 THEN 400 
420 IF zs>0 THEN 460 

430 INPUT"Wieviele Zeilen pro Seite ";zs:PRINT 
440 PRINT:PRINT"Geben Sie fuer eine Zeile '##' ein," 

450 PRINT"so wird die Eingabe beendet.":GOSUB 2480 

460 GOSUB 2360 

470 WINDOW #0,1,7+zz,4,25 

480 IF s=0 THEN s=1 

490 IF z<1 THEN 540 

500 k1=s*zs-zs+1:k2=s*zs-zs+z 

510 FOR i=k1 TO k2 

520 PRINT #0, USING •' ## i -s*zs+zs; 

530 PRINT #0, t$(i):NEXT i 
540 IF z=zs THEN z=0:s=s+1 
550 z=z+1:az=az+1 

560 IF az=300 THEN PRINT:PRINT"Es ist kein Speicherplatz mehr 

verfuegbar":RETURN 

570 LOCATE #1, zz/2+7,1:PR I NT #1, s 

580 PRINT #0, USING " ## ";z; 

590 LINE INPUT "",t$(az) 

600 IF t$(az)<>"##" THEN 540 
610 t$(az)="" 

620 z=z-1:az=az-1:WINDOW #0,1,40,1,25:RETURN 
630 REM 

640 REM Texte ansehen 
650 REM 

660 INPUT"Welche Seite »;x 

670 IF x=0 THEN 660 

680 1=0:GOSUB 2360 

690 WINDOW #0,1,7+zz,4,25 

700 LOCATE #1, zz/2+7,1:PR I NT #1, x 

710 k1=x*zs-zs+1:k2=x*zs 

720 FOR i=k1 TO k2 

730 1=1+1 

740 PRINT #0, USING " ## i-x*zs+zs; 

750 PRINT #0, t$(i) 

760 IF 1=22 THEN l=0:GOSUB 2520 
770 NEXT i:GOSUB 2520:MOOE 1 
780 WINDOW #0,1,40,1,25 
790 INPUT"Noch eine Seite (j'/n) ";a$ 





Amvender programme 


259 


800 IF a$="n" THEN RETURN 
810 IF a$<>"j" THEN 790 
820 PR I NT:PR I NT:GOTO 660 
830 REM 

840 REM Texte korrigieren 
850 REM 

860 PRINT TAB(15)"Menue":PRINT:PRINT 

870 PRINT TAB(30)"Eingabe":PRINT:PRINT 

880 PRINT"Textzeilen":PRINT:PRINT 

890 PRINT" verbessern";TAB(33)"1":PRINT 

900 PRINT" einfuegen";TAB(33)"2":PRINT 

910 PRINT" loeschen";TAB(33)"3":PRINT:PR I NT 

920 PRINT"Korrektur beenden";TAB(33)"4":PRINT 

930 PR I NT: PR I NT: INPUT 11 1 h re Wahl ";a:MODE 2 

940 IF a<1 OR a>4 THEN 860 

950 IF a<4 THEN INPUT"Welche Seite ";x:PRINT 

960 ON a GOTO 980,1140,1460,1690 

970 REM 

980 REM verbessern 
990 REM 

1000 PRINT"Uelche Zeile soil" 

1010 INPUT"verbessert werden ";y 
1020 i=(x-1)*zs+y 

1030 PRINT:PRINT"Die Zeile davor :" 

1040 PRINT t$(i-1);:PR I NT TAB(zz+1) CHR$(211):PRINT 
1050 PRINT"Die zu verbessernde Zeile :" 

1060 PRINT t$(i);:PR I NT TAB(zz+1) CHR$(211):PRINT 
1070 PRINT"Die Zeile danach :" 

1080 PRINT t$(i+1);:PRINT TAB(zz+1) CHR$(211):PRINT 
1090 PRINT:PRINT"Uie soil die";y;".te Zeile lauten ?" 
1100 LOCATE zz+1,17:PRINT CHR$(211):PRINT 
1110 LOCATE 1,17:LINE INPUT t$(i) 

1120 MODE 1:GOTO 860 
1130 REM 

1140 REM einfuegen 
1150 REM 

1160 PRINT"Zwischen welchen Zeilen soil etnas" 

1170 PRINT"eingefuegt werden ?" 

1180 PRINT:INPUT"Kleinere Zeilennummer ";y1 
1190 z1=y1:y1=(x-1)*zs+y1 
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1200 PRINT"Die Zeile lautet 

1210 PRINT t$(y1);:PRINT TAB(zz+1) CHR$(211) 

1220 PRINT:INPUT"Groessere Zeilennummer ";y2 
1230 IF y2-z1=1 THEN 1260 

1240 PRINT:PRINT"Es muessen zwei beieinanderliegende" 

1250 PRINT"Zeilen angegeben werden.":GOTO 1160 

1260 y2=(x-1)*zs+y2 

1270 PR I NT"Die Zeile lautet 

1280 PRINT t$(y2);:PRINT TAB(zz+1) CHR$(211) 

1290 PRINT:PRINT:PRINT"Uieviele Zeilen sollen einge-" 

1300 INPUT"fuegt werden ";y3 

1310 az=az+y3:z=z+y3 

1320 IF z>zs THEN z=z-zs:s=s+1 

1330 FOR i=az TO y2 STEP -1 

1340 t$(i+y3)=t$(i) 

1350 NEXT i:GOSUB 2360 
1360 WINDOW #0,1,7+zz,4,25 
1370 FOR i=y1+1 TO y1+y3 
1380 Zl=z1+1 

1390 LOCATE #1, zz/2+7,1:PRINT #1, x 
1400 PRINT #0, USING " ## ";z1; 

1410 LINE INPUT t$(i) 

1420 NEXT i 

1430 WINDOW #0,1,40,1,25 
1440 MODE 1:GOTO 860 
1450 REM 

1460 REM loeschen 
1470 REM 

1480 PRINT"Welche Zeilen sollen geloescht werden?" 

1490 PRINT:INPUT"von: Zeilennummer ";y1 
1500 z1=y1:y1=(x-1)*zs+y1 
1510 PRINT"Die Zeile lautet :" 

1520 PRINT t$(y1);:PRINT TAB(ZZ+1) CHR$(211) 

1530 PRINT:INPUT"bis: Zeilennummer »;y2 
1540 IF y2>=z1 THEN 1570 

1550 PRINT:PRINT"Die zweite Zeilennummer muss groesser" 
1560 PRINT"als die erste sein.":GOTO 1490 
1570 y2=(x-1)*zs+y2 
1580 PRINT"Die Zeile lautet :» 

1590 PRINT t$(y2);:PR I NT TAB(zz+1) CHR$(211) 
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1600 PRINT:PR I NT:PR I NT TAB(10)"Ich loesche !" 

1610 GOSUB 2480 

1620 y3=y2-y1+1 

1630 FOR i=y1 TO az 

1640 t$(i)=t$(i+y3) 

1650 NEXT i 

1660 az=az-y3:z=z-y3 

1670 IF z<1 THEN z=z+zs:s=s-1 

1680 MODE 1:GOTO 860 

1690 REM Korrektur beenden 

1700 MODE 1:RETURN 

1710 REM 

1720 REM Texte einlesen 
1730 REM 

1740 INPUT"Wie heisst der Text ";n$:OPENIN n$ 

1750 INPUT #9,zz,zs,s,z,az 

1760 FOR i=1 TO az 

1770 LINE INPUT #9,t$(i) 

1780 NEXT i 
1790 CLOSE IN 
1800 CLS:RETURN 
1810 REM 

1820 REM Texte abspeichern 
1830 REM 

1840 PRINT"Wie soil der abzuspeichernde" 

1850 INPUT"Text heissen »;n$:PRINT 
1860 OPENOUT n$ 

1870 PRINT #9,zz,zs,s,z,az 
1880 FOR i=1 TO az 
1890 PRINT #9,t$(i) 

1900 NEXT i 
1910 CLOSEOUT 
1920 CLS:RETURN 
1930 REM 

1940 REM Texte drucken 
1950 REM 

1960 PR INT"Soll der Wert fuer die Anzahl" 

1970 PRINT"der Zeilen pro Seite geaendert" 
1980 INPUT"werden (j/n) ";a$ 

1990 IF a$="n" THEN 2020 
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2000 IF a$<>"j" THEN 1960 

2010 PRINT:INPUT"Uie gross soil er sein ";zs 

2020 PRINT:PRINT"Uie breit soil der linke Rand sein ?" 

2030 INPUT"Anzahl der Leerzeichen ";lr 

2040 WIDTH zz+lr 

2050 PRINT:PRINT"Soll der gesamte Text gedruckt" 

2060 INPUT"werden (j/n) ";a$ 

2070 IF a$="n" THEN 2130 
2080 IF a$o"j» THEN 2050 
2090 FOR i=1 TO az 
2100 PRINT #8, TAB(lr+1) t$(i) 

2110 NEXT i 
2120 GOTO 2230 

2130 PRINT:PRINT"Welche Seite soil" 

2140 INPUT"gedruckt werden ";x 
2150 k1=x*zs-zs+1:k2=x*zs 
2160 FOR i=k1 TO k2 
2170 PRINT #8, TABClr+1) t$(i) 

2180 NEXT i 

2190 PRINT:PRINT"Soll eine weitere Seite" 

2200 INPUT"gedruckt werden (j/n) ";a$ 

2210 IF a$="j" THEN 2130 
2220 IF a$o"n" THEN 2190 
2230 CLS:RETURN 
2240 REM 

2250 REM Arbeit beenden 
2260 REM 

2270 PRINT"Haben Sie auch nicht vergessen den" 

2280 PRINT"Text abzuspeichern ?" 

2290 PRINT"Ist das der Fall, so geben Sie einfach" 

2300 PRINT"ein 'oh' ein. Ansonsten reicht die" 

2310 PRINT"Leertaste.":INPUT a$ 

2320 IF a$="oh" THEN GOSUB 1820 
2330 PRINT:PRI NT:PRI NT 

2340 PRINT"Sie koennen mich jetzt ausschalten." 

2350 PRINT:PR I NT:PRINT TAB(8)"Auf Wiedersehen":END 
2360 REM 

2370 REM Unterprogramm Bi Idschirmmaske 
2380 REM 
2390 MODE 2 
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2400 WINDOW #1,1,80,1,3 
2410 PRINT #1,TAB(zz/2)"Seite" 

2420 PRINT #1,"Zeile"; 

2430 WINDOW #2,8+zz,9+zz,4,25 

2440 FOR i=1 TO 25 

2450 PRINT #2, CHR$<211):NEXT i 

2460 RETURN 

2470 REM 

2480 REM Unterprogramm Warten 
2490 REM 

2500 LOCATE 5,25 

2510 PRINT"Bitte eine Taste druecken !" 
2520 x$=INKEY$ 

2530 IF x$="" THEN 2520 
2540 CLS:RETURN 


Variablenliste: 


a Antwort "Menuauswahl" 

aS Antwortstring 

az absolute Zeilenanzahl bzw. Zeilennummer (bezogen 

auf alle im Programmspeicher befindlichen Text- 
zeilen) 

i Laufindex und absolute Zeilennummer im Pro- 

grammteil "verbessern" 

kl untere Begrenzung einer Programmschleife 

k2 obere Begrenzung einer Programmschleife 

1 HilfsgrOBe im Programmteil "Texte ansehen" 

lr Breite des linken Randes bei der Druckausgabe 

n$ Name des abgespeicherten Textes 

s Seitenzahl 

t$(i) Textzeile 

x Seitenzahl in den Programmteilen "ansehen" und 

"korrigieren" 

y Nummer einer zu verbessernden Zeile 

yl kleinere Zeilennummer in den Programmteilen 

"einfiigen" und "loschen" 
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y2 

grdBere Zeilennummer in den 
"einfiigen" und "ldschen" 

Programmteilen 

y3 

Anzahl der einzufiigenden Zeilen 
zu 16schenden Zeilen 

bzw. Anzahl der 

z 

Zeilennummer einer Seite 


zl 

Zeilennummer einer Seite im Programmteil 
"korrigieren" 

zs 

Zeilen pro Seite 


zz 

Zeichen pro Zeile 



Programmbeschreibung: 

10-60 Uberschrift 

70-170 Definition der deutschen Sonderzeichen 

180 Speicherplatzreservierung fur den Text 

190-340 Auswahlmenii und entsprechende Programmver- 
zweigungen in die einzelnen Unterprogramme 

350 Da in den Unterprogrammen haufig der Bild- 

schirmmodus gewechselt wird, geschieht dies auch 
hier, um eine gleichbleibende Meniiausgabe zu 
gewShrleisten. 

360-620 Unterprogramm "Texte eingeben". In diesem Pro- 
grammteil lassen sich die folgenden Zeilen unter- 
scheiden: 

360-380 Kommentar 

390-450 Belegung der Parameter ‘zz‘ und ‘zs‘ mit Werten, 

falls dies noch nicht geschehen ist, und Ausgabe 
einer Erl&uterung zur Beendigung der Eingabe. 


460 


Yerzweigung 

"Bildschirmmaske 1 


zum 


Unterprogramm 
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470 Definition eines Bildschirmbereichs fur die Text- 

eingabe (die rechte Fensterbegrenzung ist abhangig 
von dem Parameter "Zeichen pro Zeile") 

480 Bei der Eingabe der allerersten Zeile (dann ist s=0) 

wird ‘s* gleich 1 gesetzt. 

490-530 Der Text einer teilweisen beschriebenen Seite wird 
ausgegeben. 

540 Ist eine Seite voll (dann ist z=zs), wird eine neue 

Seite "aufgeschlagen" (s=s+l) und die Variable z 
gleich 0 gesetzt. 

550 Vor jeder Zeileneingabe werden die Variablen z 

und az um 1 erhoht. 

560 Ausgabe eines Kommentars und Riicksprung zum 

Menu, wenn sich 300 Textzeilen im Programm- 
speicher befinden 

570-580 Ausgabe der Seitenzahl und der Zeilennummern 
(beziiglich einer Seite) 

590 Eingabe einer Textzeile. Der Index einer Textzeile 

ist immer die absolute Zeilennummer ‘az‘. 

600-620 Bei der Eingabe des Abbruchkriteriums werden die 
Variablen z und az um 1 vermindert (da das 
Abbruchkriterium ja nicht zum eigentlichen Text 
gehbrt), der Bildschirmbereich wird neu definiert, 
und es erfolgt ein Riicksprung aus diesem Unter- 
programm. Ansonsten wird zur weiteren Textein- 
gabe zum Satz 540 verzweigt. 

630-820 Unterprogramm "Texte ansehen". Hier lassen sich 
die folgenden Programmzeilen unterscheiden: 


630-650 


Kommentar 
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660-670 

680-690 

700 

710 

720-770 

780-820 

830-1700 

830-850 

860-960 

970-1120 

1130-1440 


Eingabe einer Seitenzahl 

Die Hilfsvariable T wird gleich 0 gesetzt, es wird 
ins Unterprogramm "Bildschirmmaske" verzweigt, 
und das Textfenster wird neu definiert. 

Ausgabe der Seitenzahl 

Die (absoluten) Zeilennummern des Anfangs und 
des Endes einer Seite werden bestimmt. 

Ausgabe des Textes. Nach der Ausgabe von 22 
Zeilen (siehe Hilfsvariable 1) wird ins Unterpro- 
gramm "Warten" verzweigt. Auf die Eriauterung 
"Bitte eine Taste drucken" wird hier verzichtet. 

Das Textfenster wird neu definiert, und es kbnnen 
weitere Seiten angesehen werden. Ansonsten erfolgt 
ein Riicksprung aus dem Unterprogramm. 

Unterprogramm "Texte korrigieren". Es lassen sich 
folgende Zeilen unterscheiden: 

Kommentar 

Auswahlmenii und entsprechende Programmver- 
zweigungen sowie Anforderung einer Seitenzahl 

Programmteil "verbessern". Eine Zeilennummer 
wird angefordert (Satz 1000-1010), die dazugehO- 
rige absolute Zeilennummer wird berechnet (1020), 
die zu verbessernde Zeile wird neben den benach- 
barten Zeilen ausgegeben (1030-1080) und dann 
anschlieBend verbessert (1090-1110). SchlieBlich 
wird der Bildschirm gerSumt, und es erfolgt eine 
Verzweigung zum Menu. 

Programmteil "einfugen". Zeilennummern werden 
angefordert, die absoluten Kennzahlen werden 
berechnet und die Textzeilen ausgegeben (1160- 
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1280). Dann wird ein Wert fur die Anzahl der 
einzugebenden Zeilen eingegeben (1290-1300), die 
Variablen z und az werden berichtigt (1310-1320, 
dabei wird in Satz 1320 beriicksichtigt, daB die 
zusdtzlichen Zeilen eine neue Seite erfordern kon- 
nen), die Indizes der vorhandenen Textzeilen wer¬ 
den korrigiert (1330-1350), und die neuen Text¬ 
zeilen kdnnen mit Hilfe der Bildschirmfensterdefi- 
nition und des Unterprogramms "Bildschirmmaske" 
eingefiigt werden (1350-1430). AnschlieBend wird 
wieder zum Menu verzweigt (1440). 

1450-1680 Programmteil "ldschen". Es werden Zeilennummern 
angefordert, umgerechnet und die entsprechenden 
Textzeilen ausgegeben (1480-1590). Dann wird 

nach einer Kommentarausgabe (1600) die Anzahl 
der zu ldschenden Zeilen berechnet (1620), die 
dann iiberschrieben werden (1630-1650). 

AnschlieBend werden die Variablen z und az neu 
berechnet (1660), wobei wiederum beriicksichtigt 
wird, daB sich die Seitenzahl Sndern kann (1670). 
Zum SchluB erfolgt ein Riicksprung zur Meniiaus- 
wahl (1680). 

1690-1700 Beendigung der Korrekturen durch Lftschen des 
Bildschirms und Riicksprung aus dem Unterpro- 
gramm. 

1710-1800 Unterprogramm "Texte einlesen" 

1810-1920 Unterprogramm "Texte abspeichern". Beim Einlesen 

und Abspeichern wird hier genauso wie bei der 

Dateiverwaltung in Kapitel 9 vorgegangen. Der 
Name eines Textes darf natiirlich nur maximal 8 
Zeichen lang sein. Ansonsten wird eine Fehlermel- 
dung ausgegeben, und Sie miissen mit einem 
GOTO wieder in das Programm hineinspringen, um 
den schon eingegebenen Text nicht zu verlieren. 
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1930-2230 Unterprogramm "Texte drucken". Nach einigen 
Formatangaben (1960-2030) wird die Anzahl der 
Zeichen pro Zeile fur die Druckausgabe begrenzt 
(2040) und entweder der ganze Text Oder jeweils 
eine Seite ausgedruckt. Der Satz 2150 ist dabei 
identisch mit dem Satz 710. In diesem Programm- 
teil kdnnen auch noch zus&tzliche Anweisungen fur 
die Druckersteuerung (Druckermenii) eingefiigt 
werden. Insbesondere die TAB-Anweisung macht 
bei lSngeren Textzeilen Probleme. Man nimmt 
dann besser druckerspezifische Anweisungen wie 
CHR$(27);T;CHR$(n); (Epson-Drucker), wobei "n” 
den Spaltenwert der Ausgabe angibt. 

2240-2350 Unterprogramm "Arbeit beenden". Falls Sie es 
versSumt haben sollten, Ihren Text abzuspeichern, 
kdnnen Sie dies hier noch tun. Ansonsten ist das 
Programmende erreicht. 

2360-2460 Unterprogramm "Bildschirmmaske". Mit Hilfe der 
Definition zweier Bildschirmfenster wird die 
"Maske" erstellt. Das erste Fenster (definiert in Satz 
2400) dient der Ausgabe der aktuellen Zeilen- und 
Seitenzahl. Im zweiten Fenster (definiert in Satz 
2430) wird die Zeilenbegrenzung eingezeichnet 
(2440-2450). Die Definition der Textfenster hat 
den Vorteil, daB auch bei einem Wegscrollen der 
Textzeilen (Stream 0), die "Maske" erhalten bleibt. 

2470-2540 Unterprogramm "Warten" 


9.6 Vier gewinnt 

Auch in diesem Buch soil ein Spielprogramm nicht fehlen. 
BewuBt ist dieses Programm erst im allerletzten Kapitel aufge- 
fiihrt, um Sie sozusagen fur die anstrengende "Arbeit" in den 
vorangegangenen Kapiteln zu "belohnen". 
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Was machen Sie, wenn Sie ein Spiel fur zwei Personen spielen 
wollen? Die Antwort ist leicht: Sie suchen sich einen Spielpart- 
ner. Aber was machen Sie, wenn keiner mit Ihnen spielen will? 
Nur fur den Besitzer eines Computers ist diese Frage leicht zu 
beantworten: Sie laden das entsprechende Programm und erset- 
zen den Spielpartner durch Ihren Computer. 

Wie bringt man denn nun einen Rechner dazu, daB er, wie es 
sich fur einen ordentlichen Spielpartner gehort, "nachdenkt"? 
Zuerst miissen Sie ihn mit dem Spielfeld und den Spielregeln 
vertraut machen. Bei "Vier gewinnt" besteht das Spielfeld aus 
einem Raster von 8x6 Feldern. Ziel des Spiels ist es, vier Chips 
in eine Reihe zu bekommen (egal ob horizontal, vertikal Oder 
diagonal). Ihre Chips unterscheiden sich dabei naturlich von den 
Chips Ihres Spielpartners. 

Fur eine mittlere SpielstSrke ist es dann ausreichend, Ihren 
Computer folgende Uberlegungen durchfiihren zu lassen: 

1) Kann ich (der Computer) mit einem Spielzug das Spiel fur 
mich entscheiden? 

2) Kann ich (der Computer) mit dem folgenden Zug verhin- 
dern, daB mein Gegner das Spiel gewinnt? 

Zusatzlich besteht dann noch die Mdglichkeit, taktische Spielva- 
rianten in den Programmablauf einzubringen. Bei "Vier gewinnt" 
kdnnte eine Taktik darin bestehen, mbglichst zwei Chips in eine 
Reihe zu bekommen, die nicht von gegnerischen Spielsteinen 
eingegrenzt werden. In den einzelnen Programmteilen muBten 
dann zusatzliche Anweisungen, beginnend mit 

IF h=2 AND ... THEN ... 

aufgenommen werden. 

In dem folgenden Programm beschrSnken wir uns aber auf die 
ersten beiden Denkschritte. Ein Nicht-Zutreffen fiihrt dann 
eben nicht zum Griff in die taktische Trickkiste, sondern es 
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wird der Zufallsgenerator bemiiht. Auswirkungen des 
iibernachsten Spielzuges werden also nicht berucksichtigt. 

Ein Wort noch zur Programmiertechnik: 

Der Computer denkt im Programm fl&chendeckend nach, d.h., es 
werden u. U. sehr viele Felder untersucht, die noch gar nicht 
spielrelevant sind. Eine andere Programmiertechnik, die in der 
Anfangsphase des Spiels auch kurzere Rechenzeiten zur Folge 
hatte, kdnnte darin bestehen, die Denkarbeit auf die besetzten 
Felder zu beschrSnken. Die einzelnen IF ... THEN-Anweisungen 
blieben dabei prinzipiell die gleichen. 

Ansonsten bleibt Ihnen viel Erfolg bei dem Vergleich Mensch - 
Maschine zu wunschen. Bedenken Sie, drei Chips in einer Reihe 
iibersieht Ihr Rechner auf gar keinen Fall ... 


10 REM Vier gewinnt 
20 CLS 

30 PRINT:PRINT TAB(12)"VIER GEWINNT" 

40 PR I NT:PR I NT:PR I NT:PR I NT:PR I NT:PR I NT 
50 PRINT TABC10) "Bernd Kowat, 1985" 

60 GOSUB 1180 

70 PRINT"Spielregeln :":PRINT:PRINT 
80 PRINT"Ziel des Spiels ist es, vier Chips in" 

90 PRINT"eine Reihe zu bekommen (egal ob hori-" 

100 PRINT"zontal, vertikal Oder diagonal)." 

110 PRINT"Das Spielfeld ist ein Raster von 8 X 6" 

120 PRINT"Feldern. Die Reihen sind von 1 bis 8" 

130 PRINT"durchnumeriert. Wollen Sie zum Beispiel" 

140 PRINT"einen Chip in die 2. Reihe werfen, so" 

150 PRINT"muessen Sie eine 2 eingeben. Der Chip" 

160 PRINT"faelIt solange, bis er auf einen an-" 

170 PRINT"deren Chip bzw. in die unterste Reihe" 

180 PRINT"faellt.":PRINT 

190 PRINT"Das sind meine Chips : ";CHR$(143);CHR$(143); 
CHR$(143) 

200 PRINT TAB(27) CHR$(143);CHR$(143);CHR$(143):PRINT 
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210 PRINT"und das sind Ihre Chips : ";CHR$(207);CHR$(207); 
CHR$(207) 

220 PRINT TAB(27) CHR$(207);CHR$(207);CHR$(207):PRINT 
230 PRINT: INPUT "Wo lien Sie beginnen (j'/n) ";a$ 

240 IF a$o"n" AND a$<>"j" THEN 230 
250 CLS:FOR i=1 TO 7:PR I NT" »; 

260 IF i=7 THEN PRINT CHR$(147);:G0T0 280 
270 PRINT CHR$(151); 

280 FOR j=1 TO 31:PRINT CHRSC154>;:NEXT j 
290 IF i=7 THEN PRINT CHR$(153):GOTO 310 
300 PRINT CHR$(157) 

310 PRINT:PR I NT:NEXT i 
320 j=3 

330 FOR i=2 TO 19 STEP 3 
340 LOCATE j,i:PRINT CHR$(149) 

350 LOCATE j,i+1:PRINT CHR$(149) 

360 NEXT i 

370 IF j=3 THEN j=35:GOTO 330 
380 FOR j=7 TO 31 STEP 4 
390 FOR i=1 TO 16 STEP 3 
400 LOCATE j,i:PRI NT CHR$(159) 

410 LOCATE j,i+1:PRI NT CHRSL149) 

420 LOCATE j,i+2:PRINT CHR$(149) 

430 NEXT i:LOCATE j,i:PRINT CHR$(155):NEXT j 
440 PRINT" ";:FOR i=1 TO 8 
450 PRINT i;" 

460 r(i,0)=1:NEXT i 

470 IF a$="n» THEN s=ROUND(RND*4+2.5):cd=143:GOSUB 1080:co(s,j)=1: 
GOSUB 1110 

480 LOCATE 3,23:INPUT"Ihre Wahl ";s 

490 IF s<1 OR s>8 THEN 480 

500 cd=207:GOSUB 1080:sb(s,j)=1:GOSUB 1110 

510 cd=143:FOR i=1 TO 8 

520 FOR j=6 TO 3 STEP -1 

530 IF r(i,j)=0 THEN 600 

540 IF p=1 THEN 580 

550 IF co(i,j)=0 THEN 610 

560 IF CO(i,j-1)=1 AND co(i,j-2)=1 THEN s=i:GOSUB 1080:GOSUB 
1110:GOTO 1060 
570 GOTO 600 
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580 IF sb(i,j)=0 THEN 610 

590 IF sb(i,j-1)=1 AND sb(i,j-2)=1 THEN r(s,j1)=0:co(s,jl)=0:GOTO 
1000 

600 NEXT j 

610 NEXT i 

620 FOR j=1 TO 6 

630 sb1=1:sb2=4:h=0 

640 FOR i=sb1 TO sb2 

650 IF p=1 THEN 680 

660 IF co(i,j)=0 THEN i1=1 ELSE h=h+1 

670 GOTO 690 

680 IF sb(i,j)=0 THEN i1 = i ELSE h=h+1 
690 NEXT i 

700 IF p=0 AND h=3 AND r(i1,j)=0 AND r< 1 1,j-1) = 1 THEN s=i1:GOSUB 
1080:GOSUB 1110:GOTO 1060 

710 IF p=1 AND h=3 AND r<i1,j)=0 AND r<i1,j-1) = 1 THEN r(s,j1)=0: 
co(s,j1)=0:GOTO 1000 

720 IF sbl<6 THEN h=0:sb1=sb1+1:sb2=sb2+1:GOTO 640 

730 NEXT j 

740 FOR i=1 TO 5 

750 FOR j=1 TO 3 

760 ip=i:jp=j:h=0 

770 IF p=1 THEN 800 

780 IF co(ip,jp)=0 THEN ip1=ip:jp1=jp ELSE h=h+1 
790 GOTO 810 

800 IF sb(ip,jp)=0 THEN ip1=ip:jp1=jp ELSE h=h+1 

810 IF ip<i+3 THEN ip=ip+1:jp=jp+1:GOTO 770 

820 IF p=0 AND h=3 AND r(ip1,jp1)=0 AND r(ipl,jpl-1)=1 THEN 

s=ip1:GOSUB 1080:GOSUB 1110:GOTO 1060 

830 IF p=1 AND h=3 AND r(ip1,jp1)=0 AND r( ipl,jpl-1)=1 THEN 

r(s,j1)=0:co(s,j1)=0:GOTO 1000 

840 NEXT j 

850 NEXT i 

860 FOR i=4 TO 8 

870 FOR j=1 TO 3 

880 ip=i:jp=j:h=0 

890 IF p=1 THEN 920 

900 IF co(ip,jp)=0 THEN ip1 = ip:jpl = jp ELSE h=h+1 
910 GOTO 930 

920 IF sb(ip,jp)=0 THEN ipi = ip:jpl = jp ELSE h=h+1 
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930 IF ip>i-3 THEN ip=ip-1:jp=jp+1:GOTO 890 

940 IF p=0 AND h=3 AND r(ip1,jp1)=0 AND r(ipl,jpl-1) = 1 THEN 

S=ip1:GOSUB 1080:GOSUB 1110:GOTO 1060 

950 IF p=1 AND h=3 AND r(ip1,jp1)=0 AND r(ipl,jpl-1) = 1 THEN 
r(s,jl)=0:co(s,jl)=0:GOTO 1000 
960 NEXT j 
970 NEXT i 

980 IF p=1 THEN p=0:GOSUB 1110:GOTO 480 
990 FOR i=1 TO 8:s(i)=0:NEXT i:l=0 
1000 1=1+1:IF t>8 THEN 1050 

1010 IF 1=1 THEN s(l)=ROUND(RND*8+0.5):GOTO 1030 
1020 s(l)=S(t-1)+1:IF s(l)=9 THEN s(l)=1 
1030 s=s(l):GOSUB 1080:co(s,j)=1:j1=j 
1040 p=1:GOTO 510 

1050 LOCATE 19,23:PRINT"Sie haben gewonnen":GOTO 1070 
1060 LOCATE 19,23:PRINT"Ich habe gewonnen" 

1070 END 

1080 FOR j=1 TO 6 

1090 IF r(s,j)=0 THEN r(s,j)=1:RETURN 
1100 NEXT j:IF cd=207 THEN 480 ELSE 1000 
1110 z=7:FOR i=2 TO 17 STEP 3 
1120 z=z-1:k=0 

1130 IF r(s,z)=1 AND r(s,z+1)=1 THEN RETURN 

1140 LOCATE s*3+s,i:PR INT CHR$(cd);CHR$(cd);CHR$(cd) 

1150 LOCATE s*3+s,i+1:PRINT CHR$(cd);CHR$(cd);CHR$(cd) 

1160 IF r(s,z)=0 AND k=0 THEN PEN 0:k=1:GOTO 1140 
1170 PEN 1:NEXT i:RETURN 
1180 REM UP Warten 
1190 LOCATE 7,25 

1200 PRINT"Bitte eine Taste druecken !" 

1210 x$=INKEYS 

1220 IF x$="" THEN 1210 

1230 CLS:RETURN 
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Variablenliste: 

a$ Antwortstring (j,n) 

cd "Chipdesign", numerischer Ausdruck fur das 

Zeichnen der Chips im Unterprogramm Satz 1110 
bis 1170 

co(i,j) Rasterfeld (i fur die Spalte und j fur die Zeile); 

gleich 1, wenn der Computer das Feld besetzt hat, 
ansonsten gleich 0 

h Zahlvariable fur die Anzahl der in einer Reihe lie- 

genden Chips 
i Laufindex 

il Spaltenindex fur ein nicht besetztes Feld 

ip Spaltenindex bei der Betrachtung der Diagonalen 

ipl Spaltenindex bei der Betrachtung der Diagonalen 

fiir ein nicht besetztes Feld 
j Laufindex 

jl Zeilenindex fiir ein probehalber besetztes Feld (s 

ist der entsprechende Spaltenindex) 
jp Zeilenindex bei der Betrachtung der Diagonalen 

jpl Zeilenindex bei der Betrachtung der Diagonalen 

fiir ein nicht besetztes Feld 

k Hilfsvariable im Unterprogramm Satz 1110-1170 

1 Laufindex fiir den zu testenden Spaltenwert 

p Hilfsvariable, die anzeigt, welcher der beiden 

Denkschritte ausgefuhrt wird 

r(i,j) Rasterfeld (i fiir die Spalte und j fiir die Zeile); 

gleich 1, wenn es besetzt ist (egal mit welchen 
Chips), ansonsten gleich 0 

s, s(i) ausgewahlter oder berechneter bzw. per Zufall 

ermittelter Spaltenwert 

sb(i,j) Rasterfeld (i fiir die Spalte und j fiir die Zeile); 

gleich 1, wenn der Spielpartner des Computers das 
Feld besetzt hat, ansonsten gleich 0 
sbl untere Begrenzung einer Programmschleife 

sb2 obere Begrenzung einer Programmschleife 

z Zeilenindex im Unterprogramm Satz 1110-1170 



Programmbeschreibung: 

10-60 Uberschrift 

70-240 Ausgabe der Spielregeln und Abfrage bezuglich des 
Spielbeginns 

250-460 Das Spielfeld wird aufgezeichnet. Zusatzlich wer- 

den in Satz 460 die Rasterfelder mit der Zeile 0 
gleich 1 gesetzt, um dem Computer mitzuteilen, 
daB ein Chip nur bis in die erste Zeile und nicht 
tiefer fSllt. 

470 Es wird eine Zufallszahl zwischen 3 und 6 gebil- 

det, wenn der Rechner mit dem Spiel beginnen 
soil. Weiterhin werden dann die entsprechenden 
Felder belegt, und der Spielstein wird eingezeich- 
net. 

480-500 Spaltenauswahl des Programmbenutzers, Felderbe- 

legung und Einzeichnen des Chips 

510-1040 Der Computer denkt nach. Dieser Programmteil 

wird zuerst fur p=0 durchlaufen, d.h., der Com¬ 
puter untersucht, ob er das Spiel zu seinen Gunsten 
entscheiden und somit beenden kann. 1st das nicht 
der Fall, erfolgt ein Durchlauf fur p=l, d.h., der 
Computer priift, ob die zufallig in Satz 1010 gebil- 
dete Zahl nicht dazu fiihrt, daB der Spielpartner 
das Spiel gewinnt. Diese zufallig gebildete Zahl 
geht nur dann als Auswahl des Computers in das 
Spiel ein (Satz 980), wenn nicht wahrend des 
Durchlaufs zum Satz 1000 (Test einer neuen Zahl) 
verzweigt wurde. Ein Sprung zum Satz 1000 erfolgt 
immer dann, wenn die Auswahl einer Zahl bzw. 
Spalte zur Niederlage des Rechners fuhren wurde. 
Er beinhaltet gleichzeitig, daB die in Satz 1030 
probehalber besetzten Felder r(s,jl) und co(s,jl) 
wieder gleich 0 gesetzt werden. Maximal werden 
die 8 mdglichen Spalten durchprobiert (Satz 1000- 
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510-610 

620-730 

740-850 

860-970 

980-1040 

1050-1060 

1070 

1080-1100 


1110-1170 

1180-1230 


1020, nur die erste Zahl wird zufallig gebildet). 
Nach 8 erfolglosen Durchlaufen gibt der Computer 
auf und verzweigt zum Programmende (mit Kom- 
mentarausgabe in Satz 1050), d.h., der Programm- 
benutzer muB u. U. uberlegen, warum er gewonnen 
hat. Im einzelnen lassen sich folgende Programm- 
teile unterscheiden: 

Untersuchung der Vertikalen 

Untersuchung der Horizontalen 

Untersuchung der von links unten nach rechts oben 
ansteigenden Diagonalen 

Untersuchung der von rechts unten nach links oben 
ansteigenden Diagonalen 

Einzeichnen eines Chips und Sprung zur Auswahl 
des Spielpartners, falls ein Durchlauf erfolgreich 
absolviert wurde, sowie Bildung von Probezahlen, 
Probebelegungen der Felder r(s,jl) und co(s,jl) 
und Riicksprung zum Satz 510 

Kommentar zum Spielausgang 

Programmende 

Unterprogramm zur Belegung des Feldes r(s,j) in 
Abhangigkeit von der ausgewahlten Spalte ‘s‘. 
Befinden sich schon 6 Chips in der Spalte, so 
erfolgt ein Riicksprung zur erneuten Auswahl (die 
Variable cd zeigt dabei an, ob der Computer oder 
der Spielbenutzer die Auswahl getroffen hat). 

Unterprogramm zum Einzeichnen eines fallenden 
Chips 

Unterprogramm "Warten" 



Der 2. Band CPC Tips & Tricks ist fur alle CPC-Besitzer 
interessant, die einen 464, 664 Oder 6128 besitzen und 
Insider-Tips suchen zum BASIC, fur Befehlserweiterun- 
gen und zur Maschinensprache. Viele effektive Hilfsrou- 
tinen! 



Aus dem Inhalt: 

- Sortierverfahren 

- 3-D-Grafik 

- Menugenerator 

- Eingabemasken- 
generator 

- Schutzen eigener 
Programme 

- Variablendump 

- Grafik-Hardcopy 

- BASIC-Zeile von BASIC 
aus erzeugen 

- Wichtige Facts zur 
Programmierung in 
Maschinensprache 

- Soft-Scrolling 

- Schnittstelle von BASIC 
zu den Z80-Registern 

- Insiderroutinen des 
Interpreters und 
des Betriebssystems 

- Kompatibilitat zwischen 
den 3 CPC-Rechnern 

- Relokative 
Maschinenprogramme 


Dullin/Straftenburg/Retzlaff/Schneider 
CPC Tips & Tricks Band II 
250 Seiten, DM 39,- 
ISBN 3-89011-131-9 




So wird der Einstieg in die Maschinensprache leichtge- 
macht! Das Maschinensprachebuch zum CPC 464, 664 
& 6128 ist wichtig fur jeden, der wirklich Insider werden 
will. 


Aus dem Inhalt: 
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MUMSTMSKMNS 

DAS 

MASCHINENSPRACHEBUCH 

urn 

CPC 

EIN DATA BECKER BUCH 

• 

: 


i, 11111 n ; ; 111111111111 

± 


111111! 1 1 I 1 1 1 M1!It 1 M 1 


- Was ist Maschinen¬ 
sprache 

- Die Zahlensysteme 

- Rechneraufbau 

- Der Z80-Prozessor 

- Aufbau der CPU 

- Der Befehlssatz des 
Z80 mit ausfuhrlichen 
Erklarungen 

- Programmierung des 
Z80-Prozessors 

- Kompletter Assembler 
zum Abtippen mit Pro- 
grammbeschreibung 

- Disassembler und 
Einzelschrittsimulator 

- Wichtige System- 
routinen fur eigene 
Programme 

- Maschinensprache- 
monitor als Listing 


Dullin/Straftenburg 
Das Maschinensprachebuch zum CPC 
330 Seiten, DM 39,- 
ISBN 3-89011-070-3 




Das CPC 664/6128 INTERN ist eine unentbehrliche Hilfe 
fur den ambitionierten BASIC-Programmierer und ein 
absolutes MuB fur den Maschinensprache-Profi. 

In monatelanger Kleinarbeit wurde ein Standardwerk 
geschaffen, das wirklich kein Geheimnis des CPC 664/ 
6128 unergrundet laBt. 


Aus dem Inhalt: 


Pb 

mini mirriiiiinnT 

5 


;; 

BfiUCKMMM • INGIISCM 



;; 

CEBITS STEIGERS 

P|l P 

: 


- 

uru 

664/6128 



; 

INTERN 

;; 


; 

EIN DATA BECKER BUCH 

; 



: 1II11111111111II111 It-h 

5 

3_P 


- Die Speicheraufteilung 

- Der Z-80-Prozessor 

- Das Gate-Array 

- Der Video-Controller 

- Der Sound-Chip 

- Die Schnittstellen 

- Das Betriebssystem 

- Der Character- 
Generator 

- Der Basic-Interpreter 

- Ein kompletter 
Disassembler 
und vieies mehr 


Gerits/Englisch/Briickmann/Steigers 
CPC 664/6128 Intern 
456 Seiten, DM 69,- 
ISBN 3-89011-135-1 




DFU fur jedermann mit dem CPC bietet eine ausfuhrli- 
che und leichtverstandliche Einfuhrung in das Gebiet der 
Datenfernubertragung. Ausgelegt fur die drei CPC-Rech- 
ner 464, 664 und 6128 bietet es sowohl dem Einsteiger 
als auch dem Profi neueste Informationen fur die effekti- 
ve Nutzung der vorhandenen Kommunikationsnetze. 



Aus dem Inhalt: 

- Was ist DFU? 

- Die Netze der Post 

- Wichtige Postbestim- 
mungen und Gebuhren 

- DATEX-P 

- BTX 

- Alles uber Akkustik- 
koppler und MODEMS 

- Einrichtung und Benut- 
zung von Mailboxen 

- Der Zugriff auf 
Datenbanken 

- Begriffserklarung: 
Originate, Answer, 
Half-Duplex usw. 

- Serielle Schnittstelle 
selbstgebaut 

und vieles mehr 


Severin/Schulwitz 
DFU fur jedermann zum CPC 
303 Seiten, DM 49,- 
ISBN 3-89011-140-8 





DASSTEHTDRIN: 

Dieses Buch beweist, daB man auch in BASIC professio- 
nelle Programme erstellen kann - man mul3 nur wissen 
wie! Benutzen Sie diesen kompletten BASIC-Lernkurs 
mit vielen Beispielprogrammen und Hilfsroutinen, urn 
wirklich alles aus Ihrem Schneider CPC 6128 herauszu- 
holen. 

Aus dem Inhalt: 

- Benutzung der verschiedenen Variablentypen 

- Die Zahlensysteme des Computers 

- Bits & Bytes 

- Was sind BASIC-Tokens 

- Stringbearbeitung 

- Sortieren von Werten 

- Laufschrift als Animation 

- SelbstdefinierteZeichensatze 

- Das Programmieren von Windows 

- Erstellen von Grafiken 

- Kopierschutz fur eigene Programme 

- Soundprogrammierung 

- Simulation einer relativen Datei 

- Behandlung von Fehlern 


UND GESCHRIEBEN HAT DIESES BUCH: 

Bemd Kowal, erfahrener Computerbuchautor, zeigt mit 
diesem Buch, daB er ein ausgezeichneter Kenner des 
Schneider CPC 6128 ist. Seine weitreichenden BASIC- 
Programmierkenntnisse vermittelt er gekonnt in diesem 
Buch. 


ISBN 3-89011 -167-X 



§ 


o 

S 

8 

s 

a 

o 

</> 

2 

« 

1 

0 ) 

V) 

I 

I 

3 



1 * / 

si 




Hi 

i 'j s j ^ >j r i 

] 


! j 1 | 

ill iitfiijj 





















